弄一个全局变量区别现在要录入的是哪个表啊。
比如，变量 vars("表名") http://www.foxtable.com/help/topics/0325.htm
Dim r1 As Row = Tables(vars("表名")).AddNew
r1("姓名") = pars(0).Trim()
r1("性别") = pars(1).Trim()
r1("民族") = pars(2).Trim()
r1("出生日期") = pars(3).replace("年","-").Replace("月","-").Replace("日","")
r1("住址") = pars(4)
r1("身份证号") = pars(5)
r1("发证机关") = pars(6)
r1("签发日期") = pars(7).SubString(0,10).Replace(".","-")
r1("有效日期") = pars(7).SubString(11).Replace(",","-")
FileSys.CopyFile(ApplicationPath & "zp.bmp", "\\Lenovo-pc\e\民工身份证相片\" & r1("身份证号") & ".bmp",True) '照片复制到Attachments目录
r1("身份证相片") = r1("身份证号") & ".bmp"
加好友 
发短信
Post By：2015/1/12 21:33:00 [显示全部帖子]
