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

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

如下代码在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