請問 Group可以在Expression屬性中設定換頁的條件, 但是該如何再加上每隔10筆資料就換頁呢?? 謝謝 oh~mygod

------
oh~mygod

參考一下這篇吧..^^ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23253

引言: 請問 Group可以在Expression屬性中設定換頁的條件, 但是該如何再加上每隔10筆資料就換頁呢?? 謝謝 oh~mygod

if Query1.RecNo mod 5=0 then QRBand4.ForceNewPage:=True 若單獨使用是沒問題 可是在Group本身處理跳頁後再加上以上的方法就會有問題 如: Group中我設定依據field1的不同會跳頁, 假設在某次跳頁時,RecNo為12, 接著print到RecNo為15時就會再跳頁, 可是我需要的是從12跳頁後,print13~17共5筆然後跳頁, 而不是13,14,15就跳頁 本來想用一個變數累加到5就跳頁並歸零,但是Group處理的跳頁應該也要讓此變數歸零才是,可是我無法抓到Group處理跳頁的timing,無法使此變數歸零, 請問chih兄,是否有解決的方法 oh~mygod

------
oh~mygod

你設一各全域變數xx.. QRGroupBeforePrint時候xx:=0;.. DetailBandBeforePrint時候xx:=xx 1;.. DetailBandAfterPrint時候 if xx mod 10=0 then QRBand4.ForceNewPage:=True else QRBand4.ForceNewPage:=False; QRGroupAfterPrint時候xx:=0;.. 試試看..我手邊沒有資料可以試... 有問題在POST吧...^^

chih兄的方法沒問題,謝謝 不過我發現另外的問題,因為我需要Group haeder、Group Footer每頁都必須出現,所以我把Group Header的ReprintOnNewPage的屬性設true, 但是會造成每次跳頁都會產生一個空白頁,不知道該如何處理 而Group Footer是依據Group Header中的Expression的value不同才會出現, 無法在每次跳頁時出現, 請問是否可以在Group Header中的Expression中就控制每隔幾筆就跳頁呢? Group Header中的Expression裡有個變數pagenumber,but不知有沒有用、又該如何使用?? 謝謝 oh~mygod

------
oh~mygod

Group Header.. ReprintOnNewPage的屬性設false 再設一各全域變數=zz//zz是你要跳頁的欄位值 Group haederbeforePrint時判斷query1zz的值有沒有等於zz 有的話就 begin ReprintOnNewPage的屬性設False end else begin ReprintOnNewPage的屬性設true zz:=Query1zz.value; end; TRY TRY SEE...

引言: chih兄的方法沒問題,謝謝 不過我發現另外的問題,因為我需要Group haeder、Group Footer每頁都必須出現,所以我把Group Header的ReprintOnNewPage的屬性設true, 但是會造成每次跳頁都會產生一個空白頁,不知道該如何處理 而Group Footer是依據Group Header中的Expression的value不同才會出現, 無法在每次跳頁時出現, 請問是否可以在Group Header中的Expression中就控制每隔幾筆就跳頁呢? Group Header中的Expression裡有個變數pagenumber,but不知有沒有用、又該如何使用?? 謝謝 oh~mygod

chih兄,這方法我試過,是ok的, 因為我需要每頁都有一個header、footer將固定的幾筆資料包起來,才想到要用Group做, 因為pagefooter會固定在最下方,無法接續在該頁的最後一筆資料之後,所以就放棄pagefooter了, 換頁大致都沒問題了, 目前剩下的問題是,該如何讓footer每頁都出現呢?? footer又是根據Group Header的Expression才出現, 如果不用Group,又該如何在每頁都產生一個footer呢?? 麻煩您了... oh~mygod

------
oh~mygod

既然你每一頁都需要印到...那我覺得還是用GroupFooter...把每頁要印的資料放在上面..這樣就可以每頁印到了..這樣應該會比較簡單... 拉一個QRBand..把BandType設為rbGroupFooter.. 然後GroupHeader的屬性FooterBand要指向那個QRBand... 這樣就可以產生一個rbGroupFooter了.. TRY TRY SEE...

引言: chih兄,這方法我試過,是ok的, 因為我需要每頁都有一個header、footer將固定的幾筆資料包起來,才想到要用Group做, 因為pagefooter會固定在最下方,無法接續在該頁的最後一筆資料之後,所以就放棄pagefooter了, 換頁大致都沒問題了, 目前剩下的問題是,該如何讓footer每頁都出現呢?? footer又是根據Group Header的Expression才出現, 如果不用Group,又該如何在每頁都產生一個footer呢?? 麻煩您了... oh~mygod

rbGroupFooter在利用每10筆換頁時似乎不會出現, 除非是因為GroupHeader的value不同造成的換頁, rbGroupFooter才會出現, 該怎麼做,才可以讓不論是哪種換頁都出現rbGroupFooter?? 麻煩您了 oh~mygod

------
oh~mygod

1.把你放在rbGroupFooter上面的QRDBText全部搬到rbDetail.. 假設QRDBTex1,QRDBTex2,QRDBTex3 DetailBandBeforePrint時候 xx:=xx 1; if xx mod 10=0 then begin QRDBText1.Enabled:=True; QRDBText2.Enabled:=True; QRDBText3.Enabled:=True; end else begin QRDBText1.Enabled:=False; QRDBText2.Enabled:=False; QRDBText3.Enabled:=False; end; TRY TRY SEE...^^

引言: rbGroupFooter在利用每10筆換頁時似乎不會出現, 除非是因為GroupHeader的value不同造成的換頁, rbGroupFooter才會出現, 該怎麼做,才可以讓不論是哪種換頁都出現rbGroupFooter?? 麻煩您了 oh~mygod

似乎可行，辛苦您囉？ 我測試看看 oh~mygod

------
oh~mygod