主题：[求助]length错误提示

Dim e As object=args(0)

'判断编码规则开始

Dim dt As DataTable=Functions.Execute("tablloading","readrules")

If dt.DataRows.count>0 Then

    Dim name As String

    Dim dr As DataRow=dt.find("[tblcolid]='"& e.DataCol.Name &"' and  [tbltname]='"& e.DataTable.name &"'")

    If dr IsNot Nothing Then

        '读取规则

        Dim reg As new System.Text.RegularExpressions.Regex(dr("colrgular"))

        If reg.Ismatch(e.NewValue) = False Then

            e.Cancel = True

            PopMessage("不符合规则")

            Return Nothing

        Else

            Dim count As Integer = 0

            For i As Integer = 0 To dr("colong").length - 1

                count += val(dr("colong").chars(i))

                Dim str As String = e.NewValue.Substring(0, count)

                MessageBox.Show(count < e.NewValue.length)

                If count < e.NewValue.length Then

                    If e.DataTable.find(dr("tblcolid") & "='" & str & "'") Is Nothing Then

                        MessageBox.Show(2)

                        PopMessage("缺少上级编码:" & str,"错误", PopIconEnum.Error, 5)

                        e.Cancel = True

                        Return Nothing

                        Exit For

                        MessageBox.Show(3)

                    End If

                 

                End If

            Next

        End If

    End If

End If