主题：实在没找出这段代码有什么问题？

下面这段代码，如果没有 有颜色部分代码，完全正常。一旦有这段内容，则出现下面错误提示。问题是，这些代码之前也都使用过，完全正常。请版主帮助分析一下原因：

此主题相关图片如下：image 1.jpg

If e.DataCol.Name = "列一" Then

    If e.DataRow.IsNull("列一") Then

        e.DataRow("列二") = Nothing

    ElseIf len(e.NewValue ) >= 3  Then

        e.DataRow("列一") = e.NewValue

        e.DataRow("列二") = e.NewValue.Substring(0,3)

 '从表二中读取列三内容。

        Dim dr3 As DataRow = DataTables("表二").Find("列一 = '" & e.newValue & "'")

        If dr3 Is Nothing Then

            e.DataRow("列三") = "错误"

        ElseIf dr3 IsNot Nothing Then

            e.DataRow("列三") = dr3("列三")

        End If

    ElseIf len(e.NewValue ) < 3  Then

        e.DataRow("列一") = "错误"

        e.DataRow("列二") = ""

    End If

End If