发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 10.3 计算字段值
发信站: 哈工大紫丁香 (2000年09月01日16:49:35 星期五), 站内信件

计算字段值 

需要对某字段的所有记录求和，使用如下代码：
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，要不他总是有增无减。

 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]