[求助]length错误提示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dt As DataTable=DataTables("表B")
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 And e.NewValue 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))
                If count < e.NewValue.length Then
                    Dim str As String = e.NewValue.Substring(0, count)
                    If e.DataTable.find(dr("tblcolid") & "='" & str & "'") Is Nothing Then
                        PopMessage("缺少上级编码:" & str,"错误", PopIconEnum.Error, 5)
                        e.Cancel = True
                        'Return Nothing
                        Exit For
                    End If
                End If
            Next
        End If
    End If
End If

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