var
rtotal:real;
begin
r := 0;
if not ClientDataset1.IsEmpty then
begin
ClientDataset1.First;
while not ClientDataset1.Eof
begin
r := r + ClientDataset1.Fields.Fields[0].AsFloat;
ClientDataset1.Next;
end;
end;
rtotal:real;
begin
r := 0;
if not ClientDataset1.IsEmpty then
begin
ClientDataset1.First;
while not ClientDataset1.Eof
begin
r := r + ClientDataset1.Fields.Fields[0].AsFloat;
ClientDataset1.Next;
end;
end;
写Filed的onGetText事件,累加Field的值