表结构:xjls int identity(1,1)(流水号)
        xjrq varchar(8)(日期)
        xjjf float(借方)
        xjdf float(贷方)
        xjye float(余额)
表格如下:日期   借方   贷方    余额
20021101 100          100
20021101        50         50
20021101  100                   150代码如下:
procedure Tf_xjdata.aqry_xjxjjfChange(Sender: TField);
var
  l_Ye:single;
begin
 with aqry_xj do
  begin
    First;
    while not Eof do
    begin
      l_Ye:=FieldByName('xjye').Asfloat;
      Next;
      Edit;
      FieldByName('xjYE').Asfloat:=l_Ye+FieldByName('xjJF').Asfloat-FieldByName('xjDF').Asfloat;
      Post;
    end;
  end;
end;

解决方案 »

  1.   

    显示两中查询情况并自动求值??没明白什么意思。
    l_Ye:=FieldByName('xjye').Asfloat;
          Edit;
          FieldByName('xjYE').Asfloat:=l_Ye+FieldByName('xjJF').Asfloat-FieldByName('xjDF').Asfloat;
          Post;
          Next;    
      

  2.   

    我要用上一条的余额,来加上本条的借方减贷方,你这样只是求本月的吧!
    就是显示两种情况(可以显示执行过两条SQL语句的记录)