主题：身份证机读取失败

foxtable中读取身份证信息，都是调用设备开发商的库，和foxtable自己没有关系的。
例如手工读取按钮的代码是：
 
Dim lb1 As WinForm.Label = e.Form.Controls("Label1")
If CVR_Authenticate= 1 Then '如果身份证验证通过
    Dim readContent As Integer = CVR_Read_Content(4) '读取身份证信息,注意读取模式设置为4.
    If readContent = 1 Then
        lb1.Text = "读身份证信息成功!"
        Functions.Execute("parse")
    Else
        lb1.Text = "读身份证信息失败!"
    End If
Else
    lb1.Text = "没有检测到有效身份证!"
End If 

 

直接检查一下foxtable安装目录下，有没有生成wz.txt这个文件。

我这边没有这个设备，无法测试的。

之前是一个客户，将他的设备发给我们，我们据此编写好程序，调试通过，做成例子之后，就将设备寄回去给他了。

删除这个wz.txt，重新扫描一次，看看能否生成wz.txt文件，如果生成了，打开这个文件，看看里头的内容是不是你这个身份证的。

那就改代码，去掉判断：

 

Dim lb1 As WinForm.Label = e.Form.Controls("Label1")
If CVR_Authenticate= 1 Then '如果身份证验证通过
    CVR_Read_Content(4) '读取身份证信息,注意读取模式设置为4.
    Functions.Execute("parse")
Else
    lb1.Text = "没有检测到有效身份证!"
End If

这是因为你的表没有名族这一列

发布后，代码通用。