小弟想在Label.Caption 上寫運算某各指定欄位 SUM加總
請問我該怎麼修改下面這段呢???


[code delphi]
Label3.Caption := 'Error Total :' csTemp9.FieldByName('COUNT').AsString;
[/code]

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

編輯記錄

不是很懂你的問題說…你寫出來的不是你自己要的答案?

------
價值的展現，來自於你用哪一個角度來看待它!!

大大 你好.

假設我的欄位

SN COUNT
1 1
2 0
3 1
4 0


以我現在寫法他只是把COUNT的第一筆 1 秀在 Label上而已
我需要的是加總....也就是
COUNT 欄位裡面所有數字加總
所以按照上面例子應該呈現 1 0 1 0 = 2
應該要顯示 2 才是我要的

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

編輯記錄

請利用回圈and變數…
假設你是用grid的方式來呈現資料

[code delphi]
v_sum := 0;

For k := 0 To Gride1.RowCount -1 Do
Begin
v_sum := v_sum StrToInt(Grid1[K 1,2]);
End;

Label1.Catpion := IntToStr(v_sum);
[/code]

大致上的方向是這樣滴…

===================引 用 lovemari 文 章===================
大大 你好.

假設我的欄位

SN COUNT
1 1
2 0
3 1
4 0


以我現在寫法他只是把COUNT的第一筆 1 秀在 Label上而已
我需要的是加總....也就是
COUNT 欄位裡面所有數字加總
所以按照上面例子應該呈現 1 0 1 0 = 2
應該要顯示 2 才是我要的

編輯記錄

其實我也有想過用迴圈方式

只是Grid 要跑一段時間

想說有沒有更快速的

這是我原本寫的



[code delphi]

for i:=0 to RecordCount-1 do
begin
j := j fieldbyname('Count').AsInteger;
NEXT;
end;

Label3.Caption := 'Error Total :' IntToStr(j) ;

[/code]

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

您好！如果不讓Grid一直跑可以先把DataSource.Enable設為False，跑完再設回True。
也可以另外開一個DataSet，直接以SQL 計算出總和，例：Select sn, Sum(count) as count From table

編輯記錄