以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  异常提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118349)
--  作者：有点甜
--  发布时间：2018/4/30 15:01:00
--  
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
        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
Trv1.Nodes(0).Expand()
trv2.ExpandAll()
--  作者：有点甜
--  发布时间：2018/4/30 15:46:00
--  

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv1.BuildTree("授权","分组|权限")

trv2.BuildTree("users","Name|Group")

[此贴子已经被作者于2018/4/30 15:46:34编辑过]