procedure TForm1.Query1AfterPost(DataSet: TDataSet);
Var
 sum:integer;
begin
 sum:=0;
Query1.open;
Query1.first;
While not Query1.eof do begin
 sum:=sum  Query1.fieldbyName('money').asInteger;
 Query1.next;
end;
Query1.First;
Label1.caption:=inttoStr(sum);
end;

引言: Hi jacosun: 不知道以下的範例是不是您要的??

Var
 sum:integer;
begin
 sum:=0;
Query1.open;
Query1.first;
While not Query1.eof do begin
 sum:=sum query1.fieldbyName('money').asInteger;
 query1.next;
end;
Query1.First;
Label1.caption:=inttoStr(sum);
end;    

發表人 - yachanga 於 2004/04/24 17:07:42