報表列印金額累加 |
答題得分者是:christie
|
homeboy
一般會員 發表:11 回覆:11 積分:4 註冊:2007-11-20 發送簡訊給我 |
|
christie
資深會員 發表:30 回覆:299 積分:475 註冊:2005-03-25 發送簡訊給我 |
var C_27, tot_c_27:integer;
procedure TForm1.DetailBand1AfterPrint(Sender: TQRCustomBand; BandPrinted: Boolean); begin C_27:=C_27 Query1['C_27']; // 累加 C_27 tot_c_27:=tot_c_27 Query1['C_27']; end; procedure TForm1.PageFooterBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin //頁底 印出 本頁金額 qrLabel8.Caption:=inttostr(C_27) end; procedure TForm1.QuickRepBeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin // 將總金額累計值tot_c_27歸零 tot_c_27:=0 end; procedure TForm1.QuickRepStartPage(Sender: TCustomQuickRep); begin C_27:=0 //一開始 將本頁金額累計值歸零 end; ===================引 用 homeboy 文 章=================== 小弟現在已用Query將資料庫內的資料抓出來,之後在將資料列印在報表上,每頁報表列印20筆,有一欄位是列印金額,並最後欄位列印本頁金額總數,金額總數隔頁不累加,只累加本頁金額,請教各位先進,金額累加的欄位要怎樣抓出呢? 是否要用迴圈來計算出每20筆金額總數呢?或是Qreport有其他方式可以抓出呢?
------
What do we live for if not to make life less difficult for each other? |
homeboy
一般會員 發表:11 回覆:11 積分:4 註冊:2007-11-20 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |