- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]狐爸，麻烦你了，目录树权限管理示例优化 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16628)
-- 发布时间：2012/2/20 2:33:00
-- [求助]狐爸，麻烦你了，目录树权限管理示例优化
狐爸，你好：
等着你来优化示例文件呢，抽个时间弄出来吧，辛苦你啦！
原帖地址：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=12193&authorid=0&page=0&star=3
此主题相关图片如下：目录树授权.jpg
[此贴子已经被作者于2012-2-20 2:33:51编辑过]
-- 发布时间：2012/2/20 7:45:00
--
目录树授权帮助不是有了.
-- 发布时间：2012/2/20 7:49:00
--
http://www.foxtable.com/help/topics/2405.htm
-- 发布时间：2012/2/20 22:19:00
--
已看到，消化中，谢谢狐爸及狐兄。
-- 发布时间：2014/8/12 23:51:00
--
1
我是外部独立的登录系统，
用户名和组在全局代码中定义两个变量：
Public _UserName
As
String
Public _UserGroup As
String
那下面这段要怎么改呢？
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()
-- 发布时间：2014/8/13 0:55:00
--
已经解决了，我直接引用表中的数据。