Sum := 0;
with DBGrid.DataSet do
begin
Book1 := GetBook;
DisableControls;
try
First;
while not EOF do
begin
Sum := Sum + FieldByName( 'fieldname' ).AsInteger; // AsFloat
Next;
end;
finally
GotoBook( Book1 );
FreeBook( Book1 );
EnableControls;
end;
end;
with DBGrid.DataSet do
begin
Book1 := GetBook;
DisableControls;
try
First;
while not EOF do
begin
Sum := Sum + FieldByName( 'fieldname' ).AsInteger; // AsFloat
Next;
end;
finally
GotoBook( Book1 );
FreeBook( Book1 );
EnableControls;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货