主题：[求助]学习代码，请问哪里出错了

在学习帮助文件的 开发部分 ，请问 我这段代码 注译部分 哪里错了？总提示错误

 

Select Case e.DataCol.name
Case "身份证号码"
If e.DataRow.IsNull("身份证号码") Then
e.DataRow("籍贯") = Nothing
e.DataRow("性别") = Nothing
e.DataRow("出生日期") = Nothing
e.DataRow("年龄") = Nothing
Else
e.DataRow("性别") = ReadSex(e.DataRow("身份证号码"))
Dim d As Date = ReadBirthDay(e.DataRow("身份证号码"))
e.DataRow("年龄") = Date.Today.year - d.year
e.DataRow("出生日期") = d
'
'Dim bm As String = e.DataRow("身份证号码").SubString(0,6)
'Dim cmd As New SQLCommand
'cmd.C
'cmd.CommandText = "SELECT DISTINCT 籍贯编码 FRO M {身份证籍贯编码} WHERE [籍贯编码] = '" & bm & "'"
'Dim dt As DataTable
'dt = cmd.ExecuteReader()
'For Each dr1 As DataRow In dt.DataRows
'e.DataRow("籍贯") = dr1.DataRow("籍贯")
'Next

End If
End Select

还是不行， 提示

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.11.11.1
错误所在事件：
详细错误信息：
标准表达式中数据类型不匹配。
 

 

以及

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.11.11.1
错误所在事件：表，员工， DataColChanged
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

mdb文件就是帮助里面的那个身份证的mdb

 

Select Case e.DataCol.name
    Case "身份证号码"
        If e.DataRow.IsNull("身份证号码") Then
            e.DataRow("籍贯") = Nothing
            e.DataRow("性别") = Nothing
            e.DataRow("出生日期") = Nothing
            e.DataRow("年龄") = Nothing
        Else
            e.DataRow("性别") = ReadSex(e.DataRow("身份证号码"))
            Dim d As Date = ReadBirthDay(e.DataRow("身份证号码"))
            e.DataRow("年龄") = Date.Today.year - d.year
            e.DataRow("出生日期") = d
           
            Dim bm As String = e.DataRow("身份证号码").SubString(0,6)
            Dim cmd As New SQLCommand
            cmd.C
            cmd.CommandText = "SELECT DISTINCT 籍贯编码 FRO M {身份证籍贯编码} WHERE [籍贯编码] = '" & bm & "'"
            Dim dt As DataTable
            dt = cmd.ExecuteReader()
            If dt.DataRows.Count > 0 Then
                e.DataRow("籍贯") = dt.DataRows(0)("籍贯")
            End If
        End If
End Select

 

 

 Dim dt As DataTable
dt = cmd.ExecuteReader()
If dt.DataRows.Count > 0 Then
e.DataRow("籍贯") = dt.DataRows(0)("籍贯")
End If

我原来这段是这么写 的

 

 Dim dt As DataTable
dt = cmd.ExecuteReader()
e.DataRow("籍贯") = dt.DataRow("籍贯")

这样写也是提示2个错误，您那样写 是帮助里面的那部分介绍的 我看的不是太懂 ，可以给我个帮助地址吗 我再重学下。谢谢

 

应该不是这个问题  还是错误提示  我添加了附件 麻烦您看下 谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.rar

这样写还是错误提示啊

          Dim bm As String = e.DataRow("身份证号码").SubString(0,6)
            Dim cmd As New SQLCommand
            cmd.CommandText = "SELECT DISTINCT 籍贯 FRO M {身份证籍贯编码} WHERE [籍贯编码] = " & bm
            Dim dt As DataTable
            dt = cmd.ExecuteReader()
            If dt.DataRows.Count > 0 Then
               e.DataRow("籍贯") = dt.DataRows(0)("籍贯")
            End If

提示

错误所在事件：
详细错误信息：
Microsoft Jet 数据库引擎找不到输入表或查询 '~TMPCLP身份证籍贯编码'。 确定它是否存在，以及它的名称的拼写是否正确。

怎么突然出现了'~TMPCLP身份证籍贯编码' 这个表

 

 

Microsoft Jet 数据库引擎找不到输入表或查询 '~TMPCLP身份证籍贯编码'。 确定它是否存在，以及它的名称的拼写是否正确。

 

不要意思还是显示这个错误代码。是不是我哪里设置的不对，麻烦您看下我在前几楼 我上传的附件，是不是没有设置对。

 

这个提示代码什么意思~~