根据身份证号码提取户籍
在CaseStudy目录下,有个Access文件“身份证籍贯编码.mdb”。
如果需要根据身份证号码自动提取户籍,可以将这个文件的数据导入到自己的系统中,然后设置DataColChanged事件代码:
Select Case e.DataCol.name
Case "身份证"
If e.DataRow.IsNull("身份证") Then
e.DataRow("籍贯") = Nothing
Else
Dim bm As String = e.DataRow("身份证").SubString(0,6)
Dim dr As DataRow = DataTables("身份证籍贯编码").Find("籍贯编码 = '" & bm & "'")
If dr IsNot Nothing Then
e.DataRow("籍贯") = dr("籍贯")
End If
End If
End
Select
籍贯的说法不准确,应该是发证地。