相信各位都有使用quick report製作報表的經驗,也可能都遇過要畫垂直格線的問題,當然我們可以使用qrshape設定為qrsRightAndLeft,可是    相信很多人都很困擾於detail band會expand延展的情況,畫面如下所示     有解嗎?小弟本來很少用quick report,這個禮拜開始把專案改為使用quick report,一個執行檔搞定一切的感覺還是比較痛快,只是qrshape無法隨者qrband跟著因為qrdbtext折行的時候進而延展 這.....折磨了小弟好幾天,甚至請教站上的前輩也只得知可以在band的beforeprint事件寫程式碼控制,昨天剛好研究出來,分享給各位,希望能讓各位受惠...

procedure Tfmpus.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin      s1.Size.Height:=sender.Size.Height+sender.Expanded;    end;

程式碼說明: 1.s1是在band中的一個qrshape,用來作垂直格線 2.至於為什麼要用size.height,根據help的說明,size是printable area,資料型態是extended,為了要去偵測感應並隨之起舞的qrband的expanded屬性,該屬性的欄位型態為extended. 執行畫面 哈哈哈哈哈.... 驀然回首,原來那quick report就在燈火闌珊處...quick report我愛你 咳..嗯...該吃藥了

之前也遇過這個問題 謝謝您提供的方法

我照著版主的作法去做 可是我的線還是不會加長 可否請版主說明詳細一點 例如： DELPHI版本為何 或還要設定什麼才能鎮達成此功能 還是一定要SubDetail才可以用(我是用DetailBand) 在此先謝謝版主為小弟解惑

你要不要把問題發出來 這樣比較好處理

如上圖..我使用了hahalin 的方法後，在第1個detilband時，並未畫線. 而是到第2次的detilband才畫線。我是將這段碼寫在QRBand1BeforePrint中 應該沒錯才對，呃..找不出問題在那。 而這張圖是..這頁報表的尾巴..由於memo1中還有資料尚無法在本頁印完，所以會跳至下一頁繼續印資料但..此時shape的heigh.並不是此頁detilband的結束的高度。而是整個detilband的高度..所以線超過去了..呃..請問一下，這該如何解決呢？謝謝大家幫忙。

小弟试了,结果正如'earny'大侠的一样,有什么方法解决?

引言: 如上圖..我使用了hahalin 的方法後，在第1個detilband時，並未畫線. 而是到第2次的detilband才畫線。我是將這段碼寫在QRBand1BeforePrint中 應該沒錯才對，呃..找不出問題在那。 而這張圖是..這頁報表的尾巴..由於memo1中還有資料尚無法在本頁印完，所以會跳至下一頁繼續印資料但..此時shape的heigh.並不是此頁detilband的結束的高度。而是整個detilband的高度..所以線超過去了..呃..請問一下，這該如何解決呢？謝謝大家幫忙。

小弟也因為工作上需求找尋相關題目跟答案，非常感謝有k.top及大大們精闢的見解，這樣的地方讓我只會皮毛的傢伙有所學習及斬獲，令外再本地方所遇到的另外一個問題亦同EARNY大大所試結果一樣，經過多次測試後發現可以將=後面的公式修改如下 QRShape1->Size->Height=189000; 102060 <====為 DetailBand->Height * 每頁REPORT最大可秀之欄位數 * 當時最大頁數 例： 假設 DetailBand->Height = 140 每頁REPORT最大可秀之欄位數為27 共計 5 頁 則140 * 27 * 5 = 189000 希望對瀏覽這個問題的其他大大能有所幫助 Derek 馬桶 發表人 - derek馬桶 於 2005/01/26 11:57:27