不好意思，俺做版主时发的帖子和许多回帖现在都找不到了。回忆了一下，大体是这个样的，您就先试试吧：
首先在您的表中加入一个用于存储图片的字段（服装），类型为“二进制备注型”（这是由于VFP字符型字段只允许254字符，存不下图片这么大的“串”）
pictemp=getpict("","选择照片","导入")＆＆，这里应限制只显示JPG类型的文件。
PIC=filetostr(pictemp)+'1'
replace 服装 with PIC
这样就完成了
将图片从二进制备注型字段中取出的方法：
表单中设一image1控件
在每一个移动记录指针的动作前加上以下两句
Strtofile(服装-'1',PictureFile.jpg)
THISFORM.image1.Picture=PictureFile.jpg
要注意的是，存入时是jpg文件，导出显示时也必须是jpg文件，如是bmp亦然，所以最好统一为一种格式。
至于为什么存入时加1，导出显示时减1，您不必探讨，不加不减也可以，但在VFP6.0容易出错，我也不知道为什么。
大概就是这样吧，由于眼睛受伤，好几年没弄VFP，电脑中也基本没在资料，全凭记忆，不对的地方请Tiger、百川等高手多多指导。
         

谢谢啸凡老师的帮助！
我这样做了，但是移动记录指针时会弹出对话框，说找不到别名picturefile。我在网上查了半天strtofile(a,b)的语法，说b那是文件全名，可是这个例子里面文件是getpict来的啊，没有路径啊，这里应该怎么写啊？

strtofile()的文件名与getpict（）的文件名无关。
getpict（）是已存在的文件名，而strtofile()的文件名是你给它起的任意一个合法的文件名，只是临时供“THISFORM.image1.Picture=文件名”使用。

[ 本帖最后由 啸凡 于 2010-4-25 11:03 编辑 ]

再次感谢啸凡老师！ 弄出来了，就是临时文件名差个引号，诶 ，自学真痛苦555
最后一个问题。。。每次换图片的时候，就会弹出对话框问是不是覆盖已有的临时文件，能自动覆盖吗？我写了个set talk off不管用啊，还是老弹出来，求教！

SET SAFETY OFF

收到的鲜花

• chirslibo 于 2010-04-25 14:27 送鲜花  3朵  

哈哈 真心感谢啸凡老师！ 我结贴啦！