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

Dim e As object=args(0)
cmd99.CommandText = "Se lect * From {Z001分类编码方案} where [规则列]='"& e.DataCol.Name &"' and [基础档案名称]='"& e.DataTable.name &"'"
Dim dt1 As DataTable= cmd99.ExecuteReader()
If dt1.DataRows.Count>0 Then
    Dim dr As DataRow=dt1.DataRows(0)
    Dim reg As new System.Text.RegularExpressions.Regex(dr("正则"))
    If reg.Ismatch(e.NewValue) = False Then
        e.Cancel = True
        Return Nothing
    Else
        Dim count As Integer = 0
        Dim prev As String = ""
        For i As Integer = 0 To dr("规则长度").length - 1
            count += val(dr("规则长度").chars(i))
            Dim str As String = e.NewValue.Substring(0, count)
            If count < e.NewValue.length Then
                If e.DataTable.find(dr("规则列") & "='" & str & "'") Is Nothing Then
                    PopMessage("缺少上级编码:" & str,"错误", PopIconEnum.Error, 5)
                    e.Cancel = True
                    Return Nothing
                    Exit For
                Else If e.OldValue = str Then
                    PopMessage("缺少上级编码:" & str,"错误", PopIconEnum.Error, 5)
                    e.Cancel = True
                    Return Nothing
                    Exit For
                End If
            Else If count = e.NewValue.length Then
                If i = dr("规则长度").length - 1 Then
                    e.DataRow("是否末级") = True
                    e.DataTable.ReplaceFor("是否末级", False, dr("规则列") & "=" & prev)
                Else
                    Dim filter As String = dr("规则列") & "<> '" & str & "' And " & dr("规则列") & " Like '" & str & "*'"
                    If e.DataTable.find(filter) Is Nothing Then
                        e.DataRow("是否末级") = True
                        filter = dr("规则列") & "= '" & prev & "'"
                        e.DataTable.ReplaceFor("是否末级", False, filter)
                    Else
                        e.DataRow("是否末级") = False
                    End If
                    Exit For
                End If
            End If
            prev = str
        Next
        count = 0
        If e.DataRow("是否末级") = True Then
            For i As Integer = 0 To dr("规则长度").length - 1
                count += val(dr("规则长度").chars(i))
                If count <= e.oldvalue.length Then
                    Dim str As String = e.oldvalue.Substring(0,count)
                    Dim fdr As DataRow = e.DataTable.find("编码规则 like '" & str & "%' and 编码规则 <> '" & str & "' and _Identify <> " & e.DataRow("_Identify"))
                    If fdr Is Nothing
                        e.DataTable.ReplaceFor("是否末级", True, "编码规则 = '" & str & "'")
                    Else
                        e.DataTable.ReplaceFor("是否末级", False, "编码规则 = '" & str & "'")
                    End If
                End If
            Next
        End If
    End If
End If

主题：[求助]判断问题