主题：[求助]扫描身份证进行输入的问题

此主题相关图片如下：身份证录入问题图片.jpg

向专家及大侠求助：

     现状：扫描同一身份证时，会新增一条新记录；

     希望实现的功能：扫描同一身份证时，通过身份证号码进行识别，如果该身份信息已经存在，就跳转到已存在的行，实现对已存在的行进行编辑；如果没有，就新增加一条记录，请教如何实现？

     背景介绍：身份证读卡器采用的是foxtable推荐的华视，项目文件也是参照软件提供的例子。

先谢谢了！

 

Dim pars() As String = Info.Split(vblf) '将读取的信息拆分为数组
Dim r As Row = Tables("表A").AddNew

 

改成

 

Dim r As DataRow = DataTables("表A").Find("身份证号码 = '" & pars(5) & "'")

If r Is Nothing Then r = DataTables("表A").AddNew

谢谢！

求助：以上代码可以实现不新增加行，但出现了以下问题：读卡时窗口中的信息不会和表中的信息同步显示，请教下该如何处理？

另外，我想实现的功能是，扫描同一身份证时，通过身份证号码进行识别，如果该身份信息已经存在，就跳转到已存在的行，并且窗口中显示改行的信息，实现对已存在的行进行编辑（我设置的是只能在窗口中进行编辑）；如果没有，就新增加一条记录，同时窗口中出现对应信息，请教如何实现？

谢谢了！

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 idx As Integer = Tables("表A").Findrow("身份证号码 = '" & pars(5) & "'")
Dim r As Row
If idx < 0 Then
    r = Tables("表A").AddNew
Else
    r = Tables("表A").Rows(idx)
End If

r("姓名") = pars(0).Trim()
r("性别") = pars(1).Trim()
r("名族") = pars(2).Trim()
r("出生日期") = pars(3).replace("年","-").Replace("月","-").Replace("日","")
r("住址") = pars(4)
r("身份证号码") = pars(5)
r("发证机关") = pars(6)
r("签发日期") = pars(7).SubString(0,10).Replace(".","-")
r("有效日期") = pars(7).SubString(11).Replace(",","-")
FileSys.CopyFile(ApplicationPath & "zp.bmp", ProjectPath & "\Attachments\" & r("身份证号码") & ".bmp",True) '照片复制到Attachments目录
r("照片") = r("身份证号码") & ".bmp"

多谢了！

此主题相关图片如下：图4.jpg

问题还是没有解决，二次读卡后窗口对应栏中还是不能显示已录信息，

另外，点击手动读取信息按钮时会显示“没有检测到有效身份证”，没有改代码之前，手动是可以读取信息的。

望指点，多谢了！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:学生缴费信息录入.rar

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 idx As Integer = Tables("表A").Findrow("身份证号码 = '" & pars(5) & "'")
Dim r As Row
If idx < 0 Then
    r = Tables("表A").AddNew
Else
    r = Tables("表A").Rows(idx)

    Tables("表A").Position = idx
End If

r("姓名") = pars(0).Trim()
r("性别") = pars(1).Trim()
r("名族") = pars(2).Trim()
r("出生日期") = pars(3).replace("年","-").Replace("月","-").Replace("日","")
r("住址") = pars(4)
r("身份证号码") = pars(5)
r("发证机关") = pars(6)
r("签发日期") = pars(7).SubString(0,10).Replace(".","-")
r("有效日期") = pars(7).SubString(11).Replace(",","-")
FileSys.CopyFile(ApplicationPath & "zp.bmp", ProjectPath & "\Attachments\" & r("身份证号码") & ".bmp",True) '照片复制到Attachments目录
r("照片") = r("身份证号码") & ".bmp"

多谢了！

但是点击手动读取信息按钮时会显示“没有检测到有效身份证”，没有改代码之前，手动是可以读取信息的。

请多多指教！

回复9楼，你按钮的代码没问题，你要把身份证放到读卡器上面，才能读取的啊。