此主题相关图片如下：qq图片20220529180745.png
我想把左边的目录树管理员独立一、级二节点，其余的部门｜职位｜姓名升为一、二、三级节点，与管理员并列，我这样写只做出上面的效果，不是我要的部门升为一级节点：
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim trv3 As WinForm.TreeView = e.Form.Controls("TreeView3")
trv1.BuildTree("权限列表", "版块管理|权限分配")
For Each u As UserInfo In Users
If u.Type = UserTypeEnum.Administrator Then
If trv2.Nodes.Contains(u.Group) = False Then
trv2.Nodes.Add(u.Group)
End If
trv2.Nodes(u.Group).Nodes.Add(u.Name)
End If
Next
trv3.BuildTree("软件用户列表", "部门|职位|姓名")
Dim Node2 As WinForm.TreeNode = trv2.Nodes(0)
For i1 As Integer = trv3.Nodes.Count - 1 To 0 Step - 1
Dim Node3 As WinForm.TreeNode = trv3.Nodes(i1)
trv3.Nodes.RemoveAt(i1)
Node2.basenode.Nodes.Add(Node3.basenode)
Next
加好友 
发短信
Post By：2022/5/25 13:32:00 [只看该作者]
