需要对某字段的所有记录求和，使用如下代码：
var i:double;
{$R
*.DFM}
procedure TForm1.Table1CalcFields(dataset:
Tdataset);
var
Goodsgold:double;
begin
Goodsgold:=table1.fieldbyname('金额').asfloat;
i:=i+Goodsgold;
label1.caption:=formatfloat('0.00',i);
end;
其中的i是求得的总和，在必要时才将他复位为0，要不他总是有增无减。
|
