之前我都是用土法煉鋼法，把資料丟入Memo再列印出來，最近看QR好像不錯用， 以前只是自己不會用而已，但這個功能我還是不會用，所以想請教要如何實作? 現在假設有客戶資料庫，客戶有「曾購買過的商品」子資料庫， 我現在程式的功能就是讓使用者選擇哪幾個客戶，他勾選完畢後， 勾選到的客戶他購買到的產品會全部都列印在同一張報表上， 所以這些資料並不是連續的，用 Detail 屬性好像也不對，因為他只能 列印同一個客戶曾購買的商品，要多個客戶曾購買的商品都在同一張報 表要如何列印?

Hi:    我想了一下，大概有幾種發法，現在說明一下最簡單的(可是我沒有測試過)    1.在客戶這個 DataSet 中，增加一個 CalCulated Field，當你點列印該客戶時，將該欄位設為 'Y' 2.在 QuickReport 的 BeforePrint 事件中，去判斷該 CalCulated Field 是否為 'Y'，是的話將 PrintBand 設為 True，否則設為 False 3.『客戶有曾購買過的商品』用TQRSubDetail 的方式來呈現    以上方法，你可以試試看 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

假設： 客戶資料表名稱 Customer 客戶編號 CustomerNo 客戶名稱 CustomerName 客戶購買的商品 Product 客戶編號 CustomerNo 商品編號 ProductNo 商品名稱 ProductName 您要如何讓使用者選客戶就看您怎麼設計。 假設我把他選到 Edit (很多個 Edit) 加入一個 AdoQuery AdoQuery.Sql.Add('Select P.CustomerNo, C.CustomerName, P.ProductName, P.ProductNo From Customer C, Product P'); AdoQuery.Sql.Add('Where C.CustomerNo = P.CustomerNo'); 這裡可以判斷他輸入多少的客戶 AdoQuery.Sql.Add('And P.CustomerNo = :pCustomerNo1'); . . AdoQuery.Sql.Add('And P.CustomerNo = :pCustomerNoX'); 然後再給 Parameters 的值 AdoQuery.Parameters.ParamByName('pCustomerNo1').Value := Edit1.Text; . . AodQuery.Parameters.ParamByName('pCustomerNoX').Value := EditX.Text; 這樣您要的資料就已經抓到 Query 內了 然後 QuickReport 用 QrGroup QrBand 就可以達到您要的報表 QrGroup 的 Expression 設 CustomerNo QrGroup 的 LinkBand 設 QrBand1 試試看。 Eric Lin

------
Eric Lin

hi..海星.. 可以參考這篇..有問題再post.. http://delphi.ktop.com.tw/topic.php?TOPIC_ID=26567 TRY TRY SEE