以下是引用wlj88868在2022/11/27 21:47:00的发言：
授权--选择2级--增加表名，，重命名的时候，不是同名不会出错，，输入列名是重名就会提示，不知道那句代码需要改
每个find的结果都要做判断，其它地方自己改
ElseIf e.Node.Level = 1 Then'重命名权限
Dim dt As DataTable = DataTables("授权")
Dim dr As DataRow
Dim fz As String = e.Node.ParentNode.Name '获得分组名
dr = dt.Find("分组名 = '" & fz & "' And 表名 = '" & e.NewText & "'") '判断新输入的权限是否存在
If dr IsNot Nothing Then'如果存在,取消输入.
MessageBox.Show("此表名已经存在!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
e.Cancel = True
Else
dr = dt.Find("分组名 = '" & fz & "' And 表名 = '" & e.Node.Name & "'") '找出对应的行
If dr IsNot Nothing Then
dr("表名") = e.NewText '重命名权限
End if
e.Node.Name = e.NewText '使得节点的名称和标题保持一致.
End If
ElseIf e.Node.Level = 2 Then'重命名权限
[此贴子已经被作者于2022/11/27 22:06:57编辑过]
加好友 
发短信
Post By：2022/11/27 20:26:00 [显示全部帖子]
