以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  同一项目中两个表格同时用身份证阅读器的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63043)
--  作者：阿标
--  发布时间：2015/1/12 21:25:00
--  同一项目中两个表格同时用身份证阅读器的问题
同一项目中两个表格同时用身份证阅读器遇到的问题：
请问高手：我用如下的内部涵数，但在一个表中读身份证时两个表中都读入数字！！！！


Dim Info As String
Info = FileSys.ReadAllText(ApplicationPath & "wz.txt", Encoding.Default) \'读取生成的文本文件
info = info.Replace(vbcrlf,vblf) \'将回车换行替换为换行
Dim pars() As String = Info.Split(vblf) \'将读取的信息拆分为数组Dim r1 As Row = Tables("劳务人员基本信息").AddNew
Dim r1 As Row = Tables("劳务人员基本信息").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"

Dim r2 As Row = Tables("职工人事档案").AddNew
r2("姓名") = pars(0).Trim()
r2("性别") = pars(1).Trim()
r2("民族") = pars(2).Trim()
r2("出生日期") = pars(3).replace("年","-").Replace("月","-").Replace("日","")
r2("住址") = pars(4)
r2("身份证号") = pars(5)
r2("发证机关") = pars(6)
r2("签发日期") = pars(7).SubString(0,10).Replace(".","-")
r2("有效日期") = pars(7).SubString(11).Replace(",","-")
FileSys.CopyFile(ApplicationPath & "zp.bmp", "\\\\Lenovo-pc\\e\\职工身份证相片\\" & r2("身份证号") & ".bmp",True) \'照片复制到Attachments目录
r2("身份证相片") = r2("身份证号") & ".bmp"
--  作者：有点甜
--  发布时间：2015/1/12 21:33:00
--  

 弄一个全局变量区别现在要录入的是哪个表啊。

 

 比如，变量 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"
--  作者：阿标
--  发布时间：2015/1/13 9:09:00
--  能否给个Var的使用实例？
能否给个Var的使用实例？跪求了！！！
--  作者：有点甜
--  发布时间：2015/1/13 9:15:00
--  

 无语，比如那你现在录入的是职工信息，那就给vars变量赋值啊

 

 vars("表名") = "职工人事档案"