一般我設定多筆資料都用QRDBText,並且設定要連結的Table與欄位即可，但是如果不用Table的話，但是有StringGrid的資料的話，可以設定資料到報表ㄇ?謝謝！

Hi:    當然可以，你可你看一下 QuickReport 的範例程式，路徑如下(視安裝路徑請自行更改)    C:\Program Files\Borland\Delphi7\Demos\Quickrpt\Qr3\qr3demo.dpr    內的 OnNeedData Example -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

謝謝你的回答...的確助益良多... 可是還有一個很奇怪的問題喔...我的報表的PREVIEW功能竟然沒用，我試了很多次都找不到原因，希望能在幫個忙指導一下，到底是哪理出了問題?謝謝~!

Hi:    因我也沒實作過，所以只能猜測性的回答你的問題，若有錯誤，敬請原諒    『PREVIEW功能竟然沒用』是指 Preview 沒東西或無法執行？考慮先行 Prepare 再 Preview 試試，若沒有東西，則先行檢查你的 StringGrid 是否有資料，迴圈控制是否有問題

    QuickRep1.Prepare;
    QuickRep1.Preview;

以上幾點建議 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

恩..感謝大大的繼續回應.. 我所說的沒有用是指"程式碼有過""無錯誤訊息""無預覽畫面出現"的情形。而大大所說的方法我也試過了，結果一樣。可是print的屬性卻有用，真的給他有夠奇怪。 下面我是用uses FrmRep的QrpStick的報表的情形，後來我有試過把報表直接給他貼在同一個form上，但是結果仍無效。而我把一樣的元件與程式碼貼到新開的執行檔中去試，結果可以。所以我以為是在這個執行檔中是不是少的什麼東西還是某項東西被關掉，我真的不曉得。 部分程式碼如下： If Trim(Sgrd102.Cells[0,1]) <> '' Then begin If Not Assigned(FrmRep) Then FrmRep := TFrmRep.Create(Application); FrmRep.QrptSick.Prepare; FrmRep.QrptSick.Preview; FrmRep.QrptSick.Print; FrmRep.Close; end; 而報表的資料是從stringgrid中獲得資料的。程式碼如下。 procedure TFrmRep.QrptSickNeedData(Sender: TObject; var MoreData: Boolean); begin If Trim(FrmRepP102.Sgrd102.Cells[0,IRow]) <> '' Then begin MoreData := True; QlaMedno.Caption := FrmRepP102.Sgrd102.Cells[0,IRow]; QlaMedname.Caption := FrmRepP102.Sgrd102.Cells[1,IRow]; QlaSex.Caption := FrmRepP102.Sgrd102.Cells[2,IRow]; QlaAge.Caption := FrmRepP102.Sgrd102.Cells[3,IRow]; QlaLookDT.Caption := FrmRepP102.Sgrd102.Cells[4,IRow]; QlaDocCD.Caption := FrmRepP102.Sgrd102.Cells[5,IRow]; QlaICD9.Caption := FrmRepP102.Sgrd102.Cells[6,IRow]; Inc(IRow); QrptSick.QRPrinter.Progress := (Longint(IRow) * 100) div FrmRepP102.Sgrd102.RowCount; end Else begin MoreData := False; QrptSick.QRPrinter.Progress := 100; end; end;

不小心重複po兩篇..抱歉... 發表人 - aj0724 於 2004/01/13 14:38:53

Hi:    恭喜你試出來了，之前我也遇過相同問題，同一段程式碼，同一些相同元件，跑出來的結果卻怎麼都不對，用了跟你相同的方法後卻又可以，真是 > -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

Hi:    今天在試 QuickReport 也發現相同問題 原來我在 QuickReport 的 OnPreview 事件中，加了一些程式碼，結果在執行 Preview 時，它只會執行該程式碼，而不去作 Preview，而且正如你所說 指"程式碼有過""無錯誤訊息""無預覽畫面出現"，因我把程式碼全部 Mark 掉了 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

很抱歉忘了講那是別人的程式。我後來看到他的程式碼中，有另外放一個form作Preview的功能，並放TQRPreview元件。所以每當他的報表在列印時都有使用到這個form，其中此form還有作interface： type THISQRPreviewInterface = class(TQRPreviewInterface) public function ShowModal(AQRPrinter : TQRPrinter) : TWinControl; override; end; 不曉得跟這個有沒有關聯，因為我很少使用interface，以前學java時有學過，但是已經不曉得要做什麼的了...因為delphi實在太好用了..把我寵壞了...

Hi:    我的程式也是如此，為了作一些特殊控管(比如說不讓 user 進行列印)，我的 Preview Form 也是自己寫的 我猜想無法 Preview 可能與該段程式碼有關，只是猜測 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman