首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

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

2012-03-08 
怎么调用临时表做报表以及怎么显示备注型字段的图片小弟刚接触VFP不久 特来请教 谢谢 下面是打印代码PUBLI

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

打印时,你的临时表是当前工作区的表就行。

热点排行