Question

问：delphi同一表中同一列所有行求和，我写了一个代码，能实现求和，但太啰嗦，有没有简单的方法！

问：delphi同一表中同一列所有行求和，我写了一个代码，能实现求和，但太啰嗦，有没有简单的方法！谢谢

Answer 1

用控件，类似dbgrideh

追问

详细点

Answer 2

是什么表？数据库中的表或者excel创建的表？

追问

数据库中的表

追答

var
sum: Cardinal;
begin
sum := 0;
DM.adoq.SQL.Text := 'select * from 成绩表';
DM.adoq.Open;
if DM.adoq.RecordCount>0 then
begin
while not DM.adoq.Eof do
begin
sum := sum + DM.adoq.FieldByName('数学').Value;
DM.adoq.Next;
end;
end;

没有多简单，差不多就这样了