当前位置: 代码迷 >> VFP >> 如何调用临时表做报表以及如何显示备注型字段的图片
  详细解决方案

如何调用临时表做报表以及如何显示备注型字段的图片

热度:5549   发布时间:2013-02-26 00:00:00.0
怎么调用临时表做报表以及怎么显示备注型字段的图片
小弟刚接触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
------解决方案--------------------------------------------------------
报表中的域控件的数据源只写字段名,不写表名。

打印时,你的临时表是当前工作区的表就行。
  相关解决方案