TwwDBGrid 合計功能該如何使用呢? |
答題得分者是:l630521
|
jch
中階會員 發表:111 回覆:224 積分:66 註冊:2003-12-01 發送簡訊給我 |
|
l630521
資深會員 發表:15 回覆:349 積分:372 註冊:2003-02-17 發送簡訊給我 |
1.將TwwDBGrid.Options內的dgShowFooter設為True
2.在TwwDBGrid.OnUpdateFooter下寫code
InforPower的範例
procedure TBitmapForm.InvoiceGridUpdateFooter(Sender: TObject);
begin
InvoiceGrid.ColumnByName('Balance Due').FooterValue :=
FloatToStrF(SumQuerySumOfBalanceDue.asFloat, ffCurrency, 10, 2);
end;
不知這樣可否讓你明白? Ian
|
jch
中階會員 發表:111 回覆:224 積分:66 註冊:2003-12-01 發送簡訊給我 |
|
l630521
資深會員 發表:15 回覆:349 積分:372 註冊:2003-02-17 發送簡訊給我 |
procedure TForm1.wwDBGrid1UpdateFooter(Sender: TObject);
begin
wwDBGrid1.ColumnByName('FieldName').FooterValue :=
'Total:' IntToStr(ADOQuery1.RecordCount);
end;
上面的例子是在Foot秀出TwwDBGrid裡共有幾筆資料。
ColumnByName('FieldName')的意思是你要秀在那一個欄位下面。
FooterValue是String型態,所以你要秀合計要轉成字串。 Ian
|
jch
中階會員 發表:111 回覆:224 積分:66 註冊:2003-12-01 發送簡訊給我 |
procedure TForm1.wwDBGrid1UpdateFooter(Sender: TObject);
begin
wwDBGrid1.ColumnByName('FieldName').FooterValue :=
'Total:' IntToStr(ADOQuery1.RecordCount);
end;
上面的例子是在Foot秀出TwwDBGrid裡共有幾筆資料。
ColumnByName('FieldName')的意思是你要秀在那一個欄位下面。
FooterValue是String型態,所以你要秀合計要轉成字串。 若DBGRIG中有3個欄位要計算合計,那該在哪一個事件作處理呢(計算該欄的合計)? ========================
我是DELPHI5的初學者
|
l630521
資深會員 發表:15 回覆:349 積分:372 註冊:2003-02-17 發送簡訊給我 |
我應該會用三個變數來記錄三個欄位的合計值,然後
procedure TForm1.wwDBGrid1UpdateFooter(Sender: TObject);
begin
wwDBGrid1.ColumnByName('Field1').FooterValue :=
IntToStr(var1);
wwDBGrid1.ColumnByName('Field2').FooterValue :=
IntToStr(var2);
wwDBGrid1.ColumnByName('Field2').FooterValue :=
IntToStr(var2);
end;
應該也可以再OnUpdateFooter中再做計算(我沒試過),但我覺得會影響效能。 Ian
|
jch
中階會員 發表:111 回覆:224 積分:66 註冊:2003-12-01 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |