主题：帮助中提取籍贯的说法不准确。

根据身份证号码提取户籍

在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

 

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

此主题相关图片如下：未命名.gif

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

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

呵呵，我明白，以后改为“户籍地”吧

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

好复杂的一个人

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

你的出生地在哪里呢

身份证号码是第一次办证时的发证地，的前六位编码。7080后一般都是出生地，有些老人因各种原因迁移到外地，国家才开始办理第一代身份证，编码就按当时发证地的。以后再迁户籍，身份证编码都不会变的了。

籍贯是指祖居地(祖籍地)或原来籍贯。公民的籍贯应为本人出生时祖父的居住地(户口所在地);祖父去世的，填写祖父去世时的户口所在地;祖父未落常住户口的，填写祖父应落常住户口的的地方;公民登记籍贯后，祖父又迁移户口的，该公民的籍贯不再随之更改。
户籍所在地是指我国居民户口簿登记所在地，一般是指出生时其父母户口登记地方，通常是家庭户口簿上的户口所在地。但由于搬迁、上学、工作等原因，本人户口会迁移到单位、学校等，这时户籍所在地就发生了变更，以户口迁移的新地址为户籍所在地。
户籍制度是指一项基本的国家行政制度。中国历史上的户籍制度是与土地直接联系的，以家庭、家族、宗族为本位的人口管理方式。现代户籍制度是国家依法收集、确认、登记公民出生、死亡、亲属关系、法定地址等公民人口基本信息的法律制度。