小弟刚接触VFP不久 特来请教 谢谢 下面是打印代码
PUBLIC tempc3,cxz
cxz=Thisform.Text6.Value
select * from 图纸信息 where 图纸编号=cxz into cursor tempc3
IF !DIRECTORY(SYS(2023)+"\tingyu3")
mkdir SYS(2023)+"\tingyu3"
ENDIF
&&Thisform.Image1.Picture=""
&&DELETE FILE(SYS(2023)+"\tingyu\"+"*.gif ")
if !file(SYS(2023)+"\tingyu3\ty"+Allt(Str(Recn()))+".gif ")
Copy Memo 图纸 To SYS(2023)+"\tingyu3\ty"+Allt(Str(Recn()))+".gif "
endif
YU=SYS(2023)+"\tingyu3\ty"+Allt(Str(Recn()))+".gif "
X=Adir(Myml,YU)
IF X#0
wjsize=Myml(1,2)
endif
if wjsize>0
set multilocks on
cursorsetprop('buffering',5,'tempc3')
report form dy.frx to print preview
------解决方案--------------------------------------------------------
将报表中控件中的表前缀去掉,在打印前
select 临时表
report form dy.frx to print preview
------解决方案--------------------------------------------------------
示例:
select * from 图纸信息 where 图纸编号=cxz into cursor tempc3
select tempc3
report form dy.frx to print preview
------解决方案--------------------------------------------------------
报表中的域控件的数据源只写字段名,不写表名。
打印时,你的临时表是当前工作区的表就行。