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


  共有1684人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
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
图片点击可在新窗口打开查看


 回到顶部