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

[wlj17173]

小弟刚接触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

[wlj17173]

试了几次都是 报错 无效的路径或文件名 还要请教 怎么设置临时表是当前工作区

[wwwwb]

[Quote=引用 6 楼 wlj17173 的回复:]

试了几次都是 报错 无效的路径或文件名 还要请教 怎么设置临时表是当前工作区
[/Quote]

将报表中控件中的表前缀去掉
select 临时
report form dy.frx to print preview

[wlj17173]

OK 了文字部分是可以显示了 现在就是图片（备注型字段）无法预览 请问在图片控件源 如何操作 不胜感激

[wwwwb]

建议用字段保存路径、文件名，打印时再调用

[wlj17173]

直接写上 SYS(2023)+"\tingyu3\ty"+Allt(Str(Recn()))+".gif " 和 tmpec3.图纸
没用 请指点

[wwwwb]

你的字段中保存的是什么路径、文件名？用什么控件显示图像？

[wlj17173]

经过几次摸索 终于搞定 给大家分享下 临时表要加入报表数据环境中 我是在init事件中 写入select * from 图纸信息 where 图纸编号=cxz into cursor tempc3
select tempc3 OK了可以看到了

然后显示图图片调用 SYS(2023)+"\tingyu3\ty"+Allt(Str(Recn()))不要后缀名 感谢给我帮助的上面2位前辈

[wwwwb]

将报表中控件中的表前缀去掉，在打印前
select 临时表

report form dy.frx to print preview

[wlj17173]

不行找不到临时表 该怎么解决

[wwwwb]

示例：
select * from 图纸信息 where 图纸编号=cxz into cursor tempc3
select tempc3

report form dy.frx to print preview

[十豆三]

报表中的域控件的数据源只写字段名，不写表名。

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

[十豆三]

关于打印图片请参考：
http://topic.csdn.net/u/20090211/20/089be05a-5351-4047-8ddf-a9b4a39222c7.html