怎么调用临时表做报表以及怎么显示备注型字段的图片
小弟刚接触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
[解决办法]
报表中的域控件的数据源只写字段名,不写表名。
打印时,你的临时表是当前工作区的表就行。