全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1261
推到 Plurk!
推到 Facebook!

QRCompositeReport 造成第2份報表的 ColumnHeaderBand 的資料印不出

尚未結案
hmjhmj
一般會員


發表:20
回覆:7
積分:5
註冊:2002-08-17

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-09-06 10:48:31 IP:211.22.xxx.xxx 未訂閱
各位先進: 我現在使用QRCompositeReport 將多份報表合併在一起,我報表的元件的放法是,報表名稱(OrLabel)放在 TitleBand上 , 欄位名稱(Label)放在ColumnHeaderBand 上, 要show的資料(QRDBText)放在DetailBand 上 , 之前沒注意到跳頁的問題!!結果版面變的很奇怪~~ 之後我在 每一個 quickreport 的SummaryBand 的AfterPrint 事件中加上一段程式 "QuickRep1.NewPage" ,讓報表做跳頁的動作,結果現在 除了開頭的第一份報表的ColumnHeaderBand 的資料會印出來之外,其他所有的報表的ColumnHeaderBand 都不會列印! 可是我將 QuickRep1.NewPage 這段程式拿掉就不會出現此狀況了!! 不過也不能分頁了!! 請問,是我疏忽掉哪邊沒有設定到嗎?? 請各位先進指教!!! 感謝~~
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-09-07 09:33:35 IP:210.65.xxx.xxx 未訂閱
Hi hmjhmj,    試著將 NewPage 移至第二的 QuickReport 的 GroupHeader 中,並搭配一個全域變數 P_CompositeReport  使用    用個全域變數 P_CompositeReport 來決定是否作 NewPage
procedure TForm1.QRGroup2BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  if P_CompositeReport then
    begin
      TQRCustomBand(Sender).ForceNewPage := True;
      P_CompositeReport := False;
    end
  else
    TQRCustomBand(Sender).ForceNewPage := False;
end;
範例請見: http://delphi.ktop.com.tw/loadfile.php?TOPICID=17508607&CC=391573 ---------------------------------- 小弟才疏學淺,若有謬誤尚請不吝指教 ----------------------------------
------
Fishman
系統時間:2024-05-19 19:56:03
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!