[求助]目录树形式的授权 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]目录树形式的授权

共有1646人关注过本帖树形打印复制链接主题：[求助]目录树形式的授权

czquickly

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：108 积分：1179 威望：0 精华：0 注册：2015/1/19 15:16:00

[求助]目录树形式的授权 发帖心情

Post By：2018/8/27 10:07:00 [只看该作者]

根据目录树形式的授权章节做的授权表，右侧的名单无法按节点排序，按小组划分的，几十个小组在目录树下随机出现。

是不是在窗口的AfterLoad事件代码为:

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 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
Trv1.Nodes(0).Expand()
trv2.ExpandAll()里要先搜索出组，再排序，再添加到目录树中？需要怎么改？找不到相关帮助
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20180827100302.jpg