Foxtable(狐表)用户栏目专家坐堂 → [求助]狐爸,麻烦你了,目录树权限管理示例优化


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

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

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


加好友 发短信
等级:一尾狐 帖子:479 积分:4505 威望:0 精华:0 注册:2008/9/4 14:40:00
[求助]狐爸,麻烦你了,目录树权限管理示例优化  发帖心情 Post By: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编辑过]

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57590 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/2/20 7:45:00 [只看该作者]

目录树授权帮助不是有了.

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/2/20 7:49:00 [只看该作者]


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


加好友 发短信
等级:一尾狐 帖子:479 积分:4505 威望:0 精华:0 注册:2008/9/4 14:40:00
  发帖心情 Post By:2012/2/20 22:19:00 [只看该作者]

已看到,消化中,谢谢狐爸及狐兄。

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


加好友 发短信
等级:童狐 帖子:202 积分:1639 威望:0 精华:0 注册:2014/6/17 19:26:00
  发帖心情 Post By:2014/8/12 23:51:00 [只看该作者]

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

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

 

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()

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


加好友 发短信
等级:童狐 帖子:202 积分:1639 威望:0 精华:0 注册:2014/6/17 19:26:00
  发帖心情 Post By:2014/8/13 0:55:00 [只看该作者]

已经解决了,我直接引用表中的数据。

 回到顶部