人力资源管理系统中一表中有通用”照片“字段，在维护表单中，如何通过浏览方式实现图片的添加？

pic=getpict()
if not file(pic)
    return
endif

APPEND GENERAL 照片 FROM (pic)

OLE   错误码：0x80041f5 application not found。

fn = GETPICT('jpg|bmp|jpeg|', '照片文件')
IF NOT EMPTY(fn) AND FILE(fn)
 thisform.pageframe1.page1.olb照片.controlsource= fn
 thisform.pageframe1.page1.olb照片.Tag = fn
ENDIF

请大家看看有何错误？

下面的代码测试通过：
CREATE CURSOR tst (xm c(8),pho g)
INSERT INTO tst (xm) VALUES ("x1")
pic=GETpic()
if file(pic)
    APPEND GENERAL pho FROM (pic)
endif
INSERT INTO tst (xm) VALUES ("x1")
pic=GETpic()
if file(pic)
    APPEND GENERAL pho FROM (pic)
endif
BROWSE

你4楼的代码：
1、当你在getpict()里按下了取消时， FILE(fn)是返回.f.的，empty()判断是多余的。
2、你只是改变了表单上的显示效果，并没有改写表文件，表单关闭后，什么都没有发生。

关于你3楼的错误提示，可能是VFP的安装问题：试试在命令行运行
"path\vfp.exe" /regserver
注意将上面的path改成你的vfp的安装路径。

看上去你的xm在你的程序中好像是多余的

可有可无