[求助]已使用的一级不允许增加下级 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.NewValue IsNot Nothing Then
            Dim dr As DataRow
            Dim dr2 As DataRow
            dr = e.DataTable.Find("编码规则= '" & e.NewValue & "'")
            If dr IsNot Nothing Then
                MessageBox.Show("部门规则重复是否正确!","请确认")
                e.Cancel = True
            Else
                dr = DataTables("职员档案").Find("部门编码 = '" & e.OldValue & "'")
                If dr IsNot Nothing Then
                    MessageBox.Show("已职员档案中使用,不能重命名","提示")
                    e.Cancel = True
                End If
            End If
            For Each fdr As DataRow In e.DataTable.Select("编码规则 is not null")
                If e.NewValue.startswith(fdr("编码规则")) Then
                    If DataTables("职员档案").find("部门编码 = '" & fdr("编码规则") & "'") IsNot Nothing Then
                        Messagebox.Show("上级编码已使用,不能增加下级!","提示")
                        e.Cancel=True
                        Exit For
                    End If
                End If
            Next
        End If

主题：[求助]已使用的一级不允许增加下级