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

每印 8 行 Detail 就換頁的問題

尚未結案
crlin
一般會員


發表:47
回覆:57
積分:20
註冊:2002-07-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-12-06 10:25:25 IP:211.22.xxx.xxx 未訂閱
以下是我的報表的格式 PageHeader ==> 每頁的開頭都會印 GroupHeader ==> 每個 Group 開頭才會印 Detail GroupFooter ==> Group 結束時才會印 我希望每個 Group 結束都要換頁, 且若一個 Group 的 Detail 每 8 行也要換頁, 以下是我目前的做法 設一個變數 recordNum QuickRep1BeforePrint ==> recordCount:=0; Detail AfterPrint ==> recordCount := recordCount 1; if recordCount mod 8 = 0 then begin QuickRep1.NewPage; end; Group AfterPrint ==> if recordCount mod 8 <> 0 then QuickRep1.NewPage; recordCount:=0; 現在發現一個問題 每個 Detail 印完後即使剛好等於 8 行而有換頁, 程式也不會發現這個 Group 是否剛好結束了 若這個 Group 尚未結束, 則換頁後繼續印 Detail record, 且因 Group 尚末結束 所以這一頁的 PageHeader 上的資料仍屬於與上一頁相同的 Group 但若這個 Group 剛好結束, 而你的換頁是在 Detail 印完後馬上換, 等偵測到 Group 結束時卻沒換頁 這時 新一頁的 PageHeader 上的資料仍屬於與上一頁相同的 Group, 但是 Detail record 印出的卻己是下一個 Group 的資料了, 所以看起來就不對 我希望我的報表每頁開頭都會印出這張驗收單的驗收單號 所以驗收單號這個資料必須放在 PageHeader 但這樣當遇到 Group 剛好8 行而在第 8 行換頁時, 因尚未偵測到 Group 己結束, 所以下一頁即使 GroupHeader 和 Detail 都己是新的 Group, 但 PageHeader 仍是舊的 Group 因為 GroupHeader 才是一個Group 的起點 請問各位還有更好的方法嗎 ?
chih
版主


發表:48
回覆:1186
積分:639
註冊:2002-04-02

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-12-07 09:49:29 IP:61.216.xxx.xxx 未訂閱
看的有點亂.. 建議你下面這二段先改成這樣.. 然後看問題狀況在> > > > 發表人 -
系統時間:2024-05-05 23:36:20
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!