Foxtable(狐表)用户栏目专家坐堂 → 用户授权


  共有2389人关注过本帖树形打印复制链接

主题:用户授权

帅哥哟,离线,有人找我吗?
yyr
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:425 威望:0 精华:0 注册:2019/8/22 22:35:00
用户授权  发帖心情 Post By:2021/3/5 11:21: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()

请问,加载窗口后,为什么老报错,用户分组那出不来?谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
yyr
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:425 威望:0 精华:0 注册:2019/8/22 22:35:00
  发帖心情 Post By:2021/3/6 15:46:00 [显示全部帖子]

报错如下

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看



 回到顶部
帅哥哟,离线,有人找我吗?
yyr
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:425 威望:0 精华:0 注册:2019/8/22 22:35:00
  发帖心情 Post By:2021/3/6 15:46:00 [显示全部帖子]

如下

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看



 回到顶部
帅哥哟,离线,有人找我吗?
yyr
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:425 威望:0 精华:0 注册:2019/8/22 22:35:00
  发帖心情 Post By:2021/3/6 15:47:00 [显示全部帖子]

显示不出用户分组出来

 回到顶部
帅哥哟,离线,有人找我吗?
yyr
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:425 威望:0 精华:0 注册:2019/8/22 22:35:00
  发帖心情 Post By:2021/3/6 16:51:00 [显示全部帖子]

好的,谢谢

 回到顶部