[求助]狐爸，麻烦你了，目录树权限管理示例优化 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用狐狸爸爸在2012-2-20 7:49:00的发言：

http://www.foxtable.com/help/topics/2405.htm

我是外部独立的登录系统，

用户名和组在全局代码中定义两个变量：

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

Trv1.Nodes(0).Expand()

trv2.ExpandAll()

主题：[求助]狐爸，麻烦你了，目录树权限管理示例优化