線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1494
推到 Plurk!
推到 Facebook!

Fast Report 裡只要有寫程式碼, sum函數就沒作用!!!

尚未結案
it1506
初階會員


發表:32
回覆:89
積分:49
註冊:2011-02-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2017-03-03 09:46:19 IP:59.120.xxx.xxx 未訂閱
事情是這樣子的...
為了補空白列 , 所以在報表裡加了程式碼 , 附檔為報表設計畫面截圖

[code delphi]
var
PageLine:integer; //列印到第幾筆
pageMaxRow:integer=11;

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
PageLine := mod PageMaxRow;
if (PageLine = 1) and ( > 1) then begin
Engine.ShowBand(child2); //very important!! 這個位置很重要!
Engine.newpage;
end;

end;

procedure myBlank();
var i:integer;
begin
i:= iif(PageLine=0, PageMaxRow, PageLine);
while i < PageMaxRow do begin
i := i 1;
Engine.ShowBand(Child1); //印空白表格
end;

end;

procedure GroupFooter1OnBeforePrint(Sender: TfrxComponent);
begin
myblank();
Engine.ShowBand(child2);
end;
[/code]

加了這些程式碼之後 sum() 在Groupfooter 就會呈現空白

所以我就多了一個footer來放 合計 然後把groupfooter的高度設成0 ,好讓程式碼可以跑 ,又不影響合計
但是footer的位置有時不會是理想位子,尤其是報表有要畫格子的時候

請問該如何解決 sum()在groupfooter 會顯示空白的問題???

編輯記錄
it1506 重新編輯於 2017-03-03 09:48:13, 註解 無‧
it1506 重新編輯於 2017-03-03 09:48:56, 註解 無‧
it1506 重新編輯於 2017-03-03 09:51:50, 註解 貼不上圖...‧
it1506 重新編輯於 2017-03-03 09:52:25, 註解 無‧
it1506 重新編輯於 2017-03-03 09:53:37, 註解 無‧
it1506 重新編輯於 2017-03-03 09:54:44, 註解 編輯器很奇怪, 貼個圖還會把字給吃掉, 程式碼區塊沒效果!‧
lilylee
一般會員


發表:74
回覆:3
積分:15
註冊:2017-09-29

發送簡訊給我
#2 引用回覆 回覆 發表時間:2019-09-20 14:56:16 IP:49.76.xxx.xxx 未訂閱
我都不太用fastreport了,因為要寫大量的程式碼,太麻煩了!可以用FineReport,一款BI報表;或者用crystal report
系統時間:2024-04-23 15:18:57
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!