在AdoTable.AfterOpen事件里循环计算 AdoTable.First; while not AdoTable.Eof do begin Total:=Total+...//累计总和。 end; Edit.Text:=FloatToStr(Total);
j:=0; i:=adotable1.recordcount; for j:=o to i-1 do begin j:=j+adotable1.fieldbyname('').asinteger; end; edit1.text:=inttostr(j);
求和过程 Result:=0; for Index:=0 to adoTable.Count-1 do Result:=Result+adoTable.FieldValues[dbgrid.Columns[n]]; Edit.Text:=IntToStr(Result);更新总和结果则在dbgrid的OnCellClick事件中调用上述代码即可!
不好意思 应该是 t:=0; i:=adotable1.recordcount; for j:=o to i-1 do begin t:=t+adotable1.fieldbyname('').asinteger; adotable1.next; end; edit1.text:=inttostr(t);
AdoTable.First;
while not AdoTable.Eof do
begin
Total:=Total+...//累计总和。
end;
Edit.Text:=FloatToStr(Total);
i:=adotable1.recordcount;
for j:=o to i-1 do
begin
j:=j+adotable1.fieldbyname('').asinteger;
end;
edit1.text:=inttostr(j);
Result:=0;
for Index:=0 to adoTable.Count-1 do
Result:=Result+adoTable.FieldValues[dbgrid.Columns[n]];
Edit.Text:=IntToStr(Result);更新总和结果则在dbgrid的OnCellClick事件中调用上述代码即可!
应该是
t:=0;
i:=adotable1.recordcount;
for j:=o to i-1 do
begin
t:=t+adotable1.fieldbyname('').asinteger;
adotable1.next;
end;
edit1.text:=inttostr(t);