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

此主题相关图片如下:权限2.jpg


此主题相关图片如下:权限.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()
百思不得其解,请老师指点!