求dbgird一列之和的带吗,但他不能计算,运行后出问题,有无改进的方法
procedure tform1.button1click(send:tobject)
var
sum1:real;
s:string;
book1:tbook;
begin
sum1:=0.00;
book1:=table1.getbook;
table1.disablecontrols;
table1.first;
while not table1.eof do
begin
sum1:=sum1+table1.fieldbyname('mingzi').value;
table1.next;
end;
table1.gotobook(book1);
table1.freebook(book1);
table1.enablecontrols;
str(sum1:8:2,s);
editdbedit1.text:=s;
end;
procedure tform1.button1click(send:tobject)
var
sum1:real;
s:string;
book1:tbook;
begin
sum1:=0.00;
book1:=table1.getbook;
table1.disablecontrols;
table1.first;
while not table1.eof do
begin
sum1:=sum1+table1.fieldbyname('mingzi').value;
table1.next;
end;
table1.gotobook(book1);
table1.freebook(book1);
table1.enablecontrols;
str(sum1:8:2,s);
editdbedit1.text:=s;
end;
解决方案 »
- 新手,请教各位大虾有关于THTML的问题
- pack[0] := char($03) 这条语句的意思!!!急
- 在线等待---如何使得带有F1book(Active控件)的程序可以在其他机子上也运行?
- 请教6(关于DateTimePicker的问题)
- 如何使用wordapplication及excelapplication组件
- 大家谈谈如何为应用服务器配置安全属性?
- 使用GRID控件作为输入界面,如何判断用户已修改了数据?另是用DBGRID好还是其它的GRID?
- 十万火急,求大伙帮帮忙!
- 怎么判断一个目录是否存在?
- 高分求多线程的Indy的Ftp程序代码!
- 我想新建一个不带表单的公共单元存储公共变量和函数,但interface到imtepmnet之间不会写请指教!谢谢!!!最好给个例子!!
- 关于数据导入到EXCEL的问题?分不够可以提!在线等待,解决马上结贴
如果不想用第三方控件
求和的话写SQL语句到数据库中取最好select Sum(mingzi) as mySum from table1
table.next这个东西不是很好用的
我看代码没有什么问题呀
不过还是建议用sql语句来做,就象“海天字”说的那样