a=GETPICT()
IF EMPTY(a)
   =MESSAGEBOX("照片没找到",64,"没找到照片")
ELSE
   replace yl1 WITH value(FILETOSTR(a))
   replace 照片 WITH a
   thisform.cntdata.image1.picture=tpname
   thisform.cntdata.image1.visible=.t.
   thisform.cntdata.shape1.visible=.f.
ENDIF
thisform.Refresh
你是从哪里抄来的程序吧,为什么要写成 replace yl1 WITH value(FILETOSTR(a))
可以改写为replace yl1 WITH FILETOSTR(a) 么?
不行就换一种方式来处理图片吧

请问大师还有什么更好的处理照片方法呀，请多指教

我在VFP+SQL 下做了一个图片转换程序,没在DBF表中测试,你看看能通过后,我把源程序发给你

myid=myp1t1
myname=GETFILE('JPG')
IF EMPTY(myname)
  MESSAGEBOX('没有选择要保存的图片文件',16,'错误')
  RETURN 
ENDIF 

Myjpg1=STRCONV(FILETOSTR(myname),13) &&STRCONV的参数为13则转成BASE64字符
myint=SQLEXEC(mycnt,"insert into emprcd2 (p1t1) VALUES (?myid)")
MyUpdt=SQLExec(Mycnt,"UPDATE emprcd2 Set MyJpg=?Myjpg1 where p1t1=?myid")
IF myupdt>=1
  WAIT WINDOW '保存成功'
ELSE
  WAIT WINDOW '保存失败'
ENDIF 
RELEASE myjpg

请大师对程序中的参数详细说明一下，比如kycnt、myjpg、myp1t1分别代表什么呀，多谢了