- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 用户授权 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161088)
-- 发布时间：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()
请问，加载窗口后，为什么老报错，用户分组那出不来？谢谢
-- 发布时间：2021/3/5 11:23:00
--
报什么错？
-- 发布时间：2021/3/6 15:46:00
--
报错如下
此主题相关图片如下：1.png
-- 发布时间：2021/3/6 15:46:00
--
如下
此主题相关图片如下：2.png
-- 发布时间：2021/3/6 15:47:00
--
显示不出用户分组出来
-- 发布时间：2021/3/6 16:14: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 u.Group > ""
If trv2.Nodes.Contains(u.Group) = False Then
trv2.Nodes.Add(u.Group)
End If
trv2.Nodes(u.Group).Nodes.Add(u.Name)
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
End If
Next
Trv1.Nodes(0).Expand()
trv2.ExpandAll()
End If
Next
Trv1.Nodes(0).Expand()
trv2.ExpandAll()
-- 发布时间：2021/3/6 16:51:00
--
好的，谢谢