各位老师好，现在有个表单上显示相片的问题想请教，大意是：表单上有个image1控件，查找按钮，一个文本框和保存按钮，相片在d:\我的图片文件夹里，运行时候，点击查找按钮，能出现我的图片文件夹（查找对话框），显示全部相片，点击需要的相片后，这个相片出现在image1控件里，在文本框里输入这个相片的代码后，点击保存（只想把这个相片的代码和路径保存的数据表的普通字段xp里）。谢谢

相片的文件名有规律吗

楼主可能简单问题复杂化了

[ 本帖最后由 sdta 于 2014-7-20 19:58 编辑 ]

ThisForm.Image1.Picture="d:\我的图片\文件名.jpg"

如果楼主非要用表单界面保存相片文件的路径，则
查找 按钮代码
CJPG=GETPICT("JPG")
IF NOT NOT EMPTY(CJPG)
   ThisForm.Image1.Picture=CJPG
   IF MESSAGEBOX("是否保留该相片的文件路径？",1+64+256,"系统信息")=6
      REPLACE XP WITH CJPG FOR 条件 && 条件自己设定
   ENDIF
ENDIF

如果相片的文件名有规律，可以用ADIR()的方法获取文件名所在的路径，自己先看看帮助文件吧。

如果相片有上万张，且文件名有规律性，通过手动保存相片所在位置的方法，不是一个明智的选择。

“在文本框里输入这个相片的代码”是何意思？

谢谢sdta等老师，文本框添加相片的编码，想按k0001，k0002等编，然后存入数据表字段里，以后调入好调。

这样一个一个的玩吗？

哦，老师们，是不是我的思路不对？ 一个信息数据有姓名，年龄，部门，工作时间，。。相片等字段，在treeview点击姓名，可以调出这个人的信息和相片。新增加人员时，可以用这个，把信息和照片保存到数据表，有简便的方法？

[ 本帖最后由 yin710 于 2014-7-21 21:07 编辑 ]