主题：如何计算一个表格里某一列所有数值之和？
jingling953
[专家分：40] 发布于 2007-05-18 12:50:00
我想把dbgrid里的某一列的所有数值相加求出总和，并把总和输入到一个文本框里面
有那位高手会的请低抬贵手。THANK YOU！
............................................................................
.. .. ..
. . . .
. . . .
. .
回复列表 （共5个回复）
沙发
长尾兔 [专家分：3630] 发布于 2007-05-18 19:16:00
var
I : integer;
Sum : Double;
begin
with DBGrid1.DataSource.DataSet do begin
First;
Sum := 0;
while Not Eof do begin
Sum := Sum + DBGrid1.Fields[1].Value;//Fields[1]即是第二列
Next;
end;
Edit1.Text := FloatToStr(Sum);
end;
end;
板凳
jingling953 [专家分：40] 发布于 2007-05-18 22:53:00
为什么定义了I却没有用上呢？
3 楼
jingling953 [专家分：40] 发布于 2007-05-19 12:11:00
而且在edit1.text:=floattostr(sum)处老是提示‘mission operator or semicolon’.
4 楼
长尾兔 [专家分：3630] 发布于 2007-05-20 03:16:00
为什么定义了I却没有用上呢？
----------------------------
你自己不会删掉啊?!
而且在edit1.text:=floattostr(sum)处老是提示‘mission operator or semicolon’
=========================
鬼知道你是怎么搞的.
5 楼
yangdouya [专家分：0] 发布于 2007-05-21 00:27:00
var
I : integer;
Sum : Double;
begin
with DBGrid1.DataSource.DataSet do begin
DBGrid1.DataSource.DataSet.DisableControls;
First;
Sum := 0;
while Not Eof do begin
Sum := Sum + DBGrid1.Fields[1].Value;//Fields[1]即是第二列
Next;
end;
DBGrid1.DataSource.DataSet.EnableControls;
Edit1.Text := FloatToStr(Sum);
end;
end;
我来回复
您所在位置：