到底要怎樣才能得到每個group正確的總頁數呢??我現在是先用query先找出每一類的資料筆數 某個欄位長度大於40(因為要折成兩行)的筆數,然後在除以detailband可印的筆數..但是這樣會跟報表自己印出來的有差距...detailband印的行數好像也沒那麼固定,有什麼好方法呢??

你可以在翻页前加个计数器，每增加一页就 1

Hi minibaby: 試試看下面幾篇有沒有幫助    http://delphi.ktop.com.tw/topic.php?topic_id=48336 http://delphi.ktop.com.tw/topic.php?topic_id=51634    ~悠遊法國號~

這些方法都是算出這份報表的總頁數,但我是我要算這份報表的每個group 的頁數,也就是說這份報表有100頁,有5個group...第一個group有15頁,第二個有20頁,第三個有18頁,第四個有25頁,第五個有22頁...在印每個group的時候算出該group 的頁數..quickreport可以這樣做嗎??(除了我原來使用的方法外)

道理是一样的啊，你在每个GROUP前加个计数器呀，每增加一个GROUP就 1

Hi minibaby:    一個想法，概念來自    http://delphi.ktop.com.tw/topic.php?topic_id=42148 事實上，與 sl@cableplus.com.cn 大大的想法不謀而合 Sample 見以下連結 http://delphi.ktop.com.tw/loadfile.php?TOPICID=16305122&CC=364658 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

這個問題剛好我日前有遇到 我是這樣用的(運用每個定單不同) Query2BDEDesigner.AsVariant 是group -> Expression 的值 Q2Pb : Integer ; Q2Pa = Query2BDEDesigner.AsVariant procedure TFED02F.QuickRep3StartPage(Sender: TCustomQuickRep); begin if Q2Pa = Query2BDEDesigner.AsVariant then Q2Pb := Q2Pb 1 (一樣加1) else begin Q2Pb := 1 ; (不同時已換一個訂單) end ; QRLabel1.Caption := Q2Pb ; Q2Pa = Query2BDEDesigner.AsVariant (剛剛放錯) end ; 好像複雜點.. 不知其他大大有沒有更有的方法 發表人 - 葡萄糖 於 2004/06/23 12:50:05

那我可以在印每個group的第一頁時就秀出那個group的總頁數嗎??

引言: 那我可以在印每個group的第一頁時就秀出那個group的總頁數嗎??

除非自己預測

你的問題我認為解法如下:(我也沒有try,不過應該沒錯) 1.設定一個全域的counter array 2.使用prepare,主要是因為,在prepare後,所有的資料及Event都會跑一便, 同時假如你資料尚未顯示的話,計算起來很快 3.設定一個boolean變數用來區分目前是prepare,還是preview or print 4.當為prepare時,將group計算的頁數填入counter array中 5.當preview or print時,將counter array中的資料顯示在qrlabel上面    

引言: 到底要怎樣才能得到每個group正確的總頁數呢??我現在是先用query先找出每一類的資料筆數 某個欄位長度大於40(因為要折成兩行)的筆數,然後在除以detailband可印的筆數..但是這樣會跟報表自己印出來的有差距...detailband印的行數好像也沒那麼固定,有什麼好方法呢??

delphiwww大大: 不好意思,我對陣列不熟,對prepare有點似懂非懂,可否麻煩您詳細解說該如何下手呢??

利用 QuickRep1.Prepare 來計算報表的頁數, 然後在 QuickRep1.Print 或 QuickRep1.Preview, 這樣您就可以得到正確的總頁數 QuickRep1.PageNumber, 如果您需要每個Group的總頁數, 只需在QRGroup1.BeforePrint把QuickRep1.PageNumber存進變數就可以了..

要怎麼寫把QuickRep1.PageNumber存進變數??這樣印每個group的第一頁時就可以得知每個group的總頁數了嗎??

Hi minibaby:    Sorry !! 放錯範例檔案，正確的應該是這一個 < href="http://delphi.ktop.com.tw/loadfile.php?TOPICID=16365531&CC=366009">http://delphi.ktop.com.tw/loadfile.php?TOPICID=16365531&CC=366009 做法與 delphiwww 所言大致相同 發表人 -

------
Fishman

Hi,Fishman: 謝謝您這麼熱心提供範例,但是我有一些地方想請教一下,就是我是用一般的query1.close; query1.open; 把我要的sql語法寫在query1裡面 那這樣的話是不是跟您用的clientdataset的有所不同呢??

Hi minibaby,    事實上用 ClientDataSet 與 Query 是大小異的，用 ClientDataSet 只是方便範例程式而已，你只要改成

procedure TForm1.Button2Click(Sender: TObject);
begin
  Query1.Close;
  Query1.ParamByName('參數一').AsString := '參數值一';
  Query1.ParamByName('參數二').AsString := '參數值二';
  Query1.ParamByName('參數三').AsString := '參數值三';
  Query1.Open;
  PageCount1.Clear;
  PageCount := 0;
  CurrentGroup := 0;
  PreviewFlag := False;
  QuickRep1.Prepare;
  PageCount := 0;
  CurrentGroup := 0;
  PageCount2.Assign(PageCount1);
  PreviewFlag := True;
  QuickRep1.Preview;
end;

即可 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

嗨,fishman: 我照你的範例寫了,可是我每頁都是顯示1/1ㄟ,怎麼會這樣呢??

Hi minibaby,    1. 使用 QuickReport 進行 Group 時，SQL Command 最好下 Order By 指令(Order by group 所使用之欄位)    2. 檢查一下程式，看看是否有遺漏的     ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Hi,Fishman: 我有order by 啦,不過因為我還有一個pagefooter,所以跟groupfooter搞混了啦,真是不好意思喔,我沒注意到< >,已經可以了,謝謝啦< >