主题：[求助]判断问题

没用过啊 老师给演示一下啊

systemready = False

 

'红色那段代码

 

systemready = true

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
        systemready = False

 

'红色那段代码

 

systemready = true

    End If
End If

怎么不行，出现什么问题啊

直接用您的代码 是这个提示

这个提示是在 添加新的代码 0201 时提示的

多增加几行 删除后 判断也不对了  

我测试没问题啊。

您 给的代码是放到 selectTF 这个自定义函数中吧

真的