根据身份证号码提取户籍

在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

籍贯的说法不准确，应该是发证地。

贺老师，这个帮助的表述要改一下。

上个截图是我个人身份证号码，如果按帮助说的，我的籍贯是山东烟台，其实根本不是山东的，更不要说烟台了。

也不是户籍地，应该是发证地。如我的户籍地是浙江，发证地是山东，籍贯是河南。

以下是引用lin_hailun在2012-10-20 10:25:00的发言：

好复杂的一个人

我好难呀。不回答，你不能惑；回答吧，贺老师说我的帖子没有质量。

你的出生地在哪里呢