[求助]根据身份证号码提取户籍问题. - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]根据身份证号码提取户籍问题.

共有3805人关注过本帖树形打印复制链接主题：[求助]根据身份证号码提取户籍问题.

ndxfke

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：792 积分：5649 威望：0 精华：0 注册：2013/12/9 20:12:00

[求助]根据身份证号码提取户籍问题. 发帖心情

Post By：2014/2/12 12:48:00 [只看该作者]

通过借鉴 <<根据身份证号码提取户籍>> 的案例和原代码。

即本页地址：http://www.foxtable.com/help/topics/2625.htm

做了个员工信息录入界面，调试过程中，出现以下问题。也没找到是什么时候原因，求助。

具体如下。

.NET Framework 版本：2.0.50727.3649

Foxtable 版本：2013.10.14.1

错误所在事件：表，员工信息表，DataColChanged

详细错误信息：

Exception has been thrown by the target of an invocation.

Column '籍贯' does not belong to table 员工信息表.

此主题相关图片如下：qq截图20140212124054.png

ndxfke

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：792 积分：5649 威望：0 精华：0 注册：2013/12/9 20:12:00

Post By：2014/2/12 12:58:00 [只看该作者]

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 & "'") // ---- 这句话调试通过，bm能得到值。
            If dr IsNot Nothing Then    // ---- 应该以下这部分出错的。
                e.DataRow("籍贯") = dr("籍贯")
            End If
        End If
End Select