怎么在VFP中实现这个功能

首先照片不能放到备注型字段中，需要把BZ字段的类型改为通用型

以下，假定你的表名称为xs.dbf，表及所有照片均在默认目录中：

if used('xs') &&测试XS表是否已经打开，如没打开则在最小工作工我打开
else
use xs.dbf in 0
endif

sele xs
go 1
for i=1 to recc()
aa='Z'+alltrim(xh)+'.jpg'
append general BZ from &aa
skip
endfor

为方便阅读，代码中有全角空格，请不要直接复制使用

增加一个导入按钮
click事件下代码
a=getpict()
append general bz from &a.

这是单张导入

以下为批量版
假设图片都放在一个文件夹内
那么
首先获得路径
select 学生表
pre=sys(5)+sys(2003)
a=getdir()
n=messagebox("是否批量导入？",4+32,"系统提示"）
if n=6
set default to a
for i=1 to recno()
if file("z"+xh+".jpg")
cpath=a+"z"+xh+".jpg"
append general bz from &cpath.
※※或者以上两行代码改为cpath="z"+xh+".jpg",append general bz from &cpath.※※
skip
endfor
endif
endif
set d