adoTable+dbgrid在dbgrid有一字段(数量),请问应如何求该列的总和结果显示在edit里,若在dbgrid里添加了记录要能够自动更新总和结果,
解决方案 »
- 如何关闭OCX的网页?
- 请大虾 bluesun 进来领分,有哪位大虾可以解决-DBGRIDEH复制粘贴的问题也请进来领 分,谢谢!
- 如何读取文件的创建时间和文件大小?
- 线程中使用窗口控件的问题
- 请教关于文件的读写存储问题,希望有人能够帮我!
- Treeview.items.addobject函数中的第三个参数point有什么用?
- Rave是什么它和delphi有什么区别?
- Delphi窗口切换问题
- 怎样用代码实现在系统菜单->程序中添加自己的程序快捷方式?
- 新手求助!请问有没有把一个窗体内的所有Edit同时赋值的方法。
- sql语句的内连接,外连接,左连接,右连接问题,我晕死了,请指点呀?
- 有没有南京通院的?大家联系一下,好共同进步 :)
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);