以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自定义目录树形式的授权问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=39418)

--  作者:foskycn
--  发布时间: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()

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

--  作者:有点甜
--  发布时间:2013/8/23 20:02:00
--  
  不上传例子,我无解。实在不方便上传例子的话,明天上班时间联系客服吧