以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树授权问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15222)
--  作者：ruan
--  发布时间：2011/12/16 16:39:00
--  目录树授权问题


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

 

参考帮助文件的例子 制作了目录树授权 应用窗口的时候出错 ~
--  作者：狐狸爸爸
--  发布时间：2011/12/16 16:44:00
--  

使用了没有赋值的对象。

贴出你的代码看看。
--  作者：ruan
--  发布时间：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()
--  作者：狐狸爸爸
--  发布时间：2011/12/16 17:19:00
--  

删除这行:

 

Trv1.Nodes(0).Expand()