Foxtable(狐表)用户栏目专家坐堂 → [求助]自定义用户管理问题


  共有4508人关注过本帖树形打印复制链接

主题:[求助]自定义用户管理问题

帅哥哟,离线,有人找我吗?
foskycn
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:92 积分:744 威望:0 精华:0 注册:2013/7/19 8:55:00
[求助]自定义用户管理问题  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:69 积分:579 威望:0 精华:0 注册:2013/4/15 15:48:00
  发帖心情 Post By:2013/8/18 20:08:00 [只看该作者]

建议你看下foxtable自带的DEMO。那里有相关的信息的

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:92 积分:744 威望:0 精华:0 注册:2013/7/19 8:55:00
  发帖心情 Post By: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()
呵呵,多谢各位


 回到顶部