以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自定义用户管理问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39197)
--  作者：foskycn
--  发布时间：2013/8/18 9:15: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()
 这段代码该如何改过？被user绕晕了！
--  作者：fox123
--  发布时间：2013/8/18 20:08:00
--  
建议你看下foxtable自带的DEMO。那里有相关的信息的
--  作者：有点甜
--  发布时间：2013/8/18 20:47:00
--  
 参考下面的代码，测试有效

Dim tv1 As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
tv1.Nodes.Clear
Dim nodes As new Dictionary(Of String, WinForm.TreeNode)
For Each u As UserInfo In Users
    If u.group IsNot Nothing AndAlso u.Group <> "" Then
        If tv1.Nodes.Contains(u.Group) = False Then
            Dim n As WinForm.TreeNode = tv1.nodes.Add(u.Group)
            nodes.Add(u.Group, n)
        End If
        nodes(u.Group).nodes.add(u.Name)
    End If
Next
--  作者：foskycn
--  发布时间：2013/8/19 18:51:00
--  
想多了，用户信息都存在user表里，直接建目录树就行了，
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv1.BuildTree("授权表","分组|权限")
trv2.BuildTree("users","group|name")
Trv1.Nodes(0).Expand()
trv2.ExpandAll()
呵呵，多谢各位