将上一条记录的余额,,加上当前的收入-支出....
用循环实现...
第一条记录的余额直接=收入-支出.
后...余额=上一余额+收入-支出..

var
i,ii,m:integer;
begin
   with adotable1 do
   begin
   first;
   for  m:=0 to  adotable1.RecordCount-1 do
   begin
    if not Bof then
    begin
      edit;
      i:=fieldbyname('收入').AsInteger;
      ii:=fieldbyname('支出').AsInteger;
      fieldbyname('余额').AsInteger:=i-ii;
      post;
    end;
    next;
   end;
  end;
end;

无法取得下笔ii:=fieldbyname('支出').AsInteger的值呢??????????不行