看下这个表单示例，对楼主会有帮助的
https://bbs.bccn.net/thread-372891-1-1.html

command1 click中

把THISFORM.Image1.Picture=[e:\xxzs\图库\ALLTRIM(NAMETAB.序号)+'.jpg']
修改一下
THISFORM.Image1.Picture='e:\xxzs\图库\'+ALLTRIM(NAMETAB.序号)+'.jpg'


[ 本帖最后由 kiff 于 2013-4-6 15:12 编辑 ]

THISFORM.Image1.Picture='e:\xxzs\图库\'+ALLTRIM(NAMETAB.序号)+'.jpg'
提示找不到别名nametab

use \xxzs\sjk\aaa
go 1
select aaa
xh=序号
THISFORM.Image1.Picture='e:\xxzs\图片\'+'&xh'+'.jpg'
THISFORM.REFRESH
后用上述命令实现此功能，谢谢大家帮助

THISFORM.Image1.Picture='e:\xxzs\图片\'+'xh'+'.jpg'

如果可以不用宏替换的，就不要用宏替换。
现才知你是 用 aaa 这个表的
那就改成
THISFORM.Image1.Picture='e:\xxzs\图片\'+allt(aaa.序号)+'.jpg'
或用你的原句稍改一下（目的是不需要宏替换）
THISFORM.Image1.Picture='e:\xxzs\图片\'+allt(xh)+'.jpg'

THISFORM.Image1.Picture='e:\xxzs\图片\'+allt(xh)+'.jpg'
测试成功
谢谢帮助

use \xxzs\sjk\aaa
go 1
THISFORM.Image1.Picture='e:\xxzs\图片\'+allt(aaa.序号)+'.jpg'
测试成功
非常感谢

看样子楼主是新手
操作方法：(假设你的数据表名称为：AAA.DBF)
1.首先将数据表添加到表单的数据环境中，
2.在表单的LOAD事件中，写入代码

PUBLIC I
I=0

3.在COMMAND1.CLICK事件中写入代码

I=I+1
IF I<=RECCOUNT()
   GO I
   IF FILE([E:\XXZS\图片\]+ALLTRIM(序号)+[.JPG])
      THISFORM.IMAGE1.PICTURE=[E:\XXZS\图片\]+ALLTRIM(AAA.序号)+[.JPG]
   ELSE
      *THISFORM.CAPTION=[你所查找的相片：]+ALLTRIM(AAA.序号)+[.JPG 不存在]
      THISFORM.IMAGE1.PICTURE=[E:\XXZS\图片\none.JPG] &&空白图片
   ENDIF
ELSE
   I=0
ENDIF

空白图片


[ 本帖最后由 lygcw9603 于 2013-4-7 10:16 编辑 ]

收到的鲜花

• tlliqi 于 2013-04-06 19:31 送鲜花  20朵   附言：加分

受益匪浅