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

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

共有13057人关注过本帖树形打印复制链接主题：目录树授权问题

ruan

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

加好友

发短信

等级：一尾狐帖子：467 积分：4934 威望：0 精华：0 注册：2011/8/20 18:40:00

目录树授权问题 发帖心情

Post By：2011/12/16 16:39:00 [只看该作者]

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

参考帮助文件的例子制作了目录树授权应用窗口的时候出错 ~

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/12/16 16:44:00 [只看该作者]

使用了没有赋值的对象。

贴出你的代码看看。

ruan

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

加好友

发短信

等级：一尾狐帖子：467 积分：4934 威望：0 精华：0 注册：2011/8/20 18:40:00

Post By：2011/12/16 17:11: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 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()

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/12/16 17:19:00 [只看该作者]

删除这行:

Trv1.Nodes(0).Expand()

下一主题 >> << 上一主题

主题：目录树授权问题