EREPORT打印不了字段,只可打印变量,请教高手(50分)

  • 主题发起人 主题发起人 meng
  • 开始时间 开始时间
M

meng

Unregistered / Unconfirmed
GUEST, unregistred user!
我从“DELPHI天空(http://delphi.yesite.com/)”下载的CREPORT控件和SAMPLES例子。
(就是EREPORT的最新版,1999年1月27号)已经顺利安装。
问题一 不能打浏览,打印TABLE1字段,但变量可打印。
我的代码: reportruntime1.allprint:=false;
ReportRunTime1.SetDataset('false1.db',table1);
reportruntime1.loadfile('c:/s/test.ept');
ReportRunTime1.SetvarValue('name', '廖伯志设计');
ReportRunTime1.SetvarValue('ph','9809123');
ReportRunTime1.SetvarValue('jzr','有见证送检');
ReportRuntime1.PrintPreview(TRUE);
已在TEST。EPT中加入@false1.编号,为什么不能浏览打印false1字段。


EREOPRT自带SAMPLES原代码不能顺利执行,原代码为:
reportruntime1.loadfile('c:/report/钢筋原材.ept');
if not table1.FindKey ([edit1.text]) then
messagebox(form1.Handle,'123123','',MB_OK); //samples中文件不全,无test.db库,改为
false1.db,去掉此句和INDEXNAME字段
TFILELD字段,想把table1.active改为真,执行
报错
例子中EDIT项好象是设置从第N到N+X条的记录打印范围,我在别的程序中如何实现?

if checkbox1.Checked then ReportRunTime1.allprint:=true
else ReportRunTime1.allprint:=false;
ReportRunTime1.SetvarValue('name', '廖伯志设计');
ReportRunTime1.SetvarValue('ph','9809123');
ReportRunTime1.SetvarValue('jzr','有见证送检');
ReportRunTime1.SetDataset('gb', table1);
ReportRuntime1.PrintPreview(TRUE);

问题二 每建立一个新的用EPORT打印程序。每次都要我把EPORT中的预览等文件和TB97下的些文件拷贝到新程序所在目录中才能执行程序。如何解决这个问题。
TB97控件的作用是什么?


 
ReportRunTime1.SetDataset('false1.db',table1);
reportruntime1.loadfile('c:/s/test.ept');
这两句的顺序可能要换一下。
 
现在最新版本的最后修改日期:1999.3.18,
http://www.nease.net/~bozhi/ereport.zip
且已有例子不用分开DownLoad
 
多人接受答案了。
 
后退
顶部