delphi DBGRID 怎么没有循环求和

[chushouTV]

for I := 0 to query1.recordcount-1 do
if (DBGrid1.Fields[1].Value <> '') then
begin
Label11.Caption := IntToStr(StrToInt(Label11.Caption) + 1);
Label4.Caption:= FloatToStr(StrToFloat(Label4.Caption) + Query1.FieldByName('zje').AsFloat);
end;

[kenlewis]

这个就是楼上说的DBGridEh，也就是EhLib控件。
这个例子我一行代码都没写。
设计阶段就是这个样子了。

我已经上传最新版在CSDN里，我自己破解的。

[lyhoo163]

建议使用DBGridEh，它有最底行，合计功能。

[ynquan]

这个是数据库中拿出来的。你可以在数据库中求和后再显示出来。

[chushouTV]

我就想在这循环里写 怎么写啊

[p47655255]

 query1.first;//非常重要
je:=0;
while not query1.eof do
begin
   je:= je+ query1.fieldbyname('zje').asfloat;
   query1.next;
end;

[BlueStorm]

可以改用DBGridEh, 数据汇总功能很强大。

[Biscuit_vv]

用DBGridEh吧,省很多事~

[ptvbs]

拖几个label上去一样能实现，用sql命令求出和赋值，多用sql命令啊，比循环好使，控件还是跟随系统更新的，没了三方更新的困扰

[format227]

用DBGridEh吧,设置几个属性即可。