var i:Integer; TempSum:Double; begin TempSum:=0; for i:=1 to DbGrid1.DataSource.Dataset.RecordCount do begin TempSum := TempSum+DbGrid1.DataSource.Dataset.Fields[1].AsFloat; end;end; 或者是写SQL语句~~ with Query1 do begin close; SQL.Clear; SQL.Add('Select Sum(字段名) From 表名'); Open; end;
i:Integer;
TempSum:Double;
begin
TempSum:=0;
for i:=1 to DbGrid1.DataSource.Dataset.RecordCount do
begin
TempSum := TempSum+DbGrid1.DataSource.Dataset.Fields[1].AsFloat;
end;end; 或者是写SQL语句~~
with Query1 do
begin
close;
SQL.Clear;
SQL.Add('Select Sum(字段名) From 表名');
Open;
end;