根据身份证号码提取户籍

在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