主题：[求助]提取数据出错

我要根据身份证号码提取数据，但是代码运行出错。我几乎完全照搬照抄啊。 

如下代码在datacolchanged事件中无法运行。

 

 

 代码如下：

      Select Case e.DataCol.name
    Case "身份证号"
        If e.DataRow.IsNull("身份证") Then
            e.DataRow("毕业中学") = Nothing
        Else
            Dim bm As String = e.DataRow("身份证号")
            Dim dr As DataRow = DataTables("身份证毕业中学").Find("身份证号 = '" & bm & "'")
            If dr IsNot Nothing Then
                e.DataRow("毕业中学") = dr("毕业中学")
            End If
        End If
End Select

此主题相关图片如下：2015-06-12_163450.png

报错提示
此主题相关图片如下：2015-06-12_163632.png

你看看另外一张表表名是不是身份证毕业中学   身份证号,毕业中学 列名有没有写错?

 表名或列名写错

表名没有写错。我刻意写成  身份证毕业中学。    列名 也没有错误。

 

 

 

此主题相关图片如下：2015-06-12_184526.png


此主题相关图片如下：2015-06-12_184607.png

如果这个代码不行。最好还是能在按钮上面运行代码。  估计按钮的代码好使 。   在datacolchanged 事件中。这个代码还得身份证号有变动才行。

Select Case e.DataCol.name
    Case "身份证号"
        If e.DataRow.IsNull("身份证号") Then
            e.DataRow("毕业中学") = Nothing
        Else
            Dim bm As String = e.DataRow("身份证号")
            Dim dr As DataRow = DataTables("身份证毕业中学").Find("身份证号 = '" & bm & "'")
            If dr IsNot Nothing Then
                e.DataRow("毕业中学") = dr("毕业中学")
            End If
        End If
End Select

这个代码对了。  谢谢大红包