主题：[求助]目录树形式的授权

这样测试

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv1.BuildTree("授权","分组|权限")
For Each u As UserInfo In Users
    If u.Type = UserTypeEnum.User Then

msgbox(u.group)

If u.Group > "" 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
    End If
Next

msgbox(trv1.nodes.count)
Trv1.Nodes(0).Expand()
trv2.ExpandAll()