- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 目录树授权问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=86940)
-- 发布时间：2016/6/29 12:55: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()
-- 发布时间：2016/6/29 12:56:00
--
此主题相关图片如下：1.png
-- 发布时间：2016/6/29 14:46:00
--
如果你的 授权表 没有数据，就会报这个错的。
或者你加上判断
If trv1.Nodes.Count > 0 Then Trv1.Nodes(0).Expand()