谢谢2楼、3楼、4楼的帮助,学习了。
在几位的帮助下,我编写了如下代码:
PhotoPath=GETDIR("","请选择照片所在文件夹:")
IF !EMPTY(PhotoPath)
PhotoCount=ADIR(PhotoArr,PhotoPath+"*.BMP")
IF PhotoCount>0
I=0
SCAN
PhotoName=ALLTRIM(Ei.姓名)+"("+ALLTRIM(Ei.身份证号)+").BMP"
IF ASCAN(PhotoArr,PhotoName)>0
PhotoName=PhotoPath+PhotoName
APPEND GENERAL Ei.照片 FROM &PhotoName
=TABLEUPDATE(1)
I=I+1
ENDIF
ENDSCAN
ENDIF
=MESSAGEBOX("成功导入"+ALLTRIM(STR(I))+"张照片。",64,"系统提示")
ENDIF
[
本帖最后由 iamhyf 于 2010-1-10 13:01 编辑 ]