调用QuickRep的preview 看不到白纸 |
尚未結案
|
baby2321
初階會員 發表:52 回覆:165 積分:48 註冊:2005-06-11 發送簡訊給我 |
Object Treeview上右键点击QuickRep1选择preview显示正常
然后我写了一个button 调用preview 来显示报表 但却显示不了结果 连preview里的哪怕没有数据时应该显示的那张“白纸”都没有 代码如下: [code delphi] procedure TForm1.Button1Click(Sender: TObject); var QuickRep1: TQuickRep; preview: TQRStandardPreview; printer: TQRPrinter; begin QuickRep1:=TQuickRep.Create(nil); printer := TQRPrinter.Create(nil); preview := TQRStandardPreview.CreatePreview(nil, printer); try preview.ShowModal; finally preview.Free; printer.Free; QuickRep1.Free; end; [/code] 再次谢谢大家 是不是因为我这里是Create(nil)? 如果不是nil 应该怎么写呢? |
pillar62
資深會員 發表:9 回覆:324 積分:271 註冊:2002-04-15 發送簡訊給我 |
|
baby2321
初階會員 發表:52 回覆:165 積分:48 註冊:2005-06-11 發送簡訊給我 |
|
baby2321
初階會員 發表:52 回覆:165 積分:48 註冊:2005-06-11 發送簡訊給我 |
|
baby2321
初階會員 發表:52 回覆:165 積分:48 註冊:2005-06-11 發送簡訊給我 |
如果是dataset的问题
try //我加了以下三行 adotable1.Active:=true; QuickRep1.DataSet:=adotable1; QuickRep1.DataSet.Active:=true; preview.ShowModal; finally .... 执行后 还是看不到白纸 是不是ADO的connectionstring和 tablename 也要在这里声明? 或者是不是要在QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);事件中做一些处理? 感谢 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |