简单的代码问题

[anan3000]

求dbgird一列之和的带吗，但他不能计算，运行后出问题，有无改进的方法
procedure tform1.button1click(send:tobject)
var
sum1:real;
s:string;
bookmark1:tbookmark;
begin
sum1:=0.00;
bookmark1:=table1.getbookmark;
table1.disablecontrols;
table1.first;
while not table1.eof do
begin
sum1:=sum1+table1.fieldbyname('mingzi').value;
table1.next;
end;
table1.gotobookmark(bookmark1);
table1.freebookmark(bookmark1);
table1.enablecontrols;
str(sum1:8:2,s);
editdbedit1.text:=s;
end;

[sailer_shi]

你为什么不用DbGridEh呢？

[huojiehai]

最好用Dbgrideh
如果不想用第三方控件
求和的话写SQL语句到数据库中取最好

select Sum(mingzi) as mySum from table1

[anan3000]

一本书上所有的求和都是用我上边的方法，我却编译不出，气愤中
没有不用控件的吗，哎

[nyf1220]

编译的时候出什么错误信息？？
table.next这个东西不是很好用的
我看代码没有什么问题呀
不过还是建议用sql语句来做，就象“海天字”说的那样

[wujunwei]

cxgrid都可以实现此功能!