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;
uj5u.com熱心網友回復：
這個是資料庫中拿出來的。你可以在資料庫中求和后再顯示出來。uj5u.com熱心網友回復：
我就想在這回圈里寫 怎么寫啊uj5u.com熱心網友回復：
query1.first;//非常重要
je:=0;
while not query1.eof do
begin
je:= je+ query1.fieldbyname('zje').asfloat;
query1.next;
end;
uj5u.com熱心網友回復：
可以改用DBGridEh, 資料匯總功能很強大。uj5u.com熱心網友回復：
這個就是樓上說的DBGridEh，也就是EhLib控制元件。
這個例子我一行代碼都沒寫。
設計階段就是這個樣子了。
我已經上傳最新版在CSDN里，我自己破解的。
uj5u.com熱心網友回復：
建議使用DBGridEh，它有最底行，合計功能。uj5u.com熱心網友回復：
拖幾個label上去一樣能實作，用sql命令求出和賦值，多用sql命令啊，比回圈好使，控制元件還是跟隨系統更新的，沒了三方更新的困擾uj5u.com熱心網友回復：
用DBGridEh吧,省很多事~uj5u.com熱心網友回復：
用DBGridEh吧,設定幾個屬性即可。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/35998.html
標籤：VCL組件開發及應用