可能是A变量的值不合法，或者系统没找到能打开你选择的文件的程序吧！

如果你是存照片，为什么不选择大二进制数据类型(Blob)呢？这个更简单点
local cFile
cFile=GETPICT("jpg","请选择照片")
if !file(cFile)
    =MESSAGEBOX("照片没找到",64,"没找到照片")
endif
REPLACE 照片 with filetostr(cFile) in "cy"


如果要显示当前一条记录的照片
直接将此字段值的赋值给IMAGE对象的PictureVal属性即可
thisform.image1.PictureVal=cy.照片

a=GETPICT("jpg","请选择照片")
IF EMPTY(a)
   =MESSAGEBOX("照片没找到",64,"没找到照片")
   RETURN 
ELSE
   REPLACE 照片 with filetostr(cFile) in "cy"  *这句话还的查查函数是否正确
ENDIF
thisform.Refresh