Foxtable(狐表)用户栏目专家坐堂 → [求助]自定义目录树形式的授权问题


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

主题:[求助]自定义目录树形式的授权问题

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


加好友 发短信
等级:婴狐 帖子:92 积分:744 威望:0 精华:0 注册:2013/7/19 8:55:00
[求助]自定义目录树形式的授权问题  发帖心情 Post By:2013/8/23 19:40:00 [显示全部帖子]

例子不好上,先上几张图片
一。

图片点击可在新窗口打开查看此主题相关图片如下:权限2.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:权限.jpg
图片点击可在新窗口打开查看
二。

图片点击可在新窗口打开查看此主题相关图片如下:case1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:case2.jpg
图片点击可在新窗口打开查看

前面两图是授权表里面的授权
两个位置,前面的“仓库管理”权限运行正常,后面的权限里,“生产领料”谁都可以打开,“领料审核”谁都不能打开。
这个功能完全照搬了帮助里的代码,只是授权目录树里是获取的外部用户表。

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

百思不得其解,请老师指点!

 回到顶部