[求助]关于目录树角色授权问题【已解决】 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

上传例子

下载信息 [文件大小：下载次数： ]
点击浏览该文件:目录树形式的授权.foxdb

想实现左边是角色，右边选择控件，最后将控件放在角色管理的控件列里面，麻烦老师帮帮忙，我转换不来，先谢谢了

窗口表事件

窗口与控件事件

授权_AfterLoad

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 _Username '该代码有错，不会做了

If trv2.Nodes.Contains(u.Group) = False Then

trv2.Nodes.Add(u.Group)

End If

Trv1.Nodes(0).Expand()

trv2.ExpandAll()

'由于我采用了默认用户，使用了全局代码如下：

'=============用户管理===============

'Public _UserName As String '登录名

'Public _UserName1 As String '用户名

'Public _UserGroup As String '用户分组

'Public _UserTable As DataTable '

'现在我想TreeView2 加载的数据是表“用户管理”的“姓名”,“group”列

请问该如何修改目录树授权

[此贴子已经被作者于2016/8/26 17:32:20编辑过]

上传例子

下载信息 [文件大小：下载次数： ]
点击浏览该文件:目录树形式的授权.foxdb

请问有谁能帮帮我，卡在这里几天了

我想

此主题相关图片如下：001.png

此主题相关图片如下：002.png

我想做成一个由角色来选在控件名称，例子已上传，麻烦老师帮帮忙

做出来的效果是

此主题相关图片如下：003.png

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")

trv1.BuildTree("角色管理","角色名称")

trv2.BuildTree("授权","分组|权限")

但是我想比如左边选择员工，右边把“角色管理”“授权集合”列的内容相应的选上，最后保存的时候将打上勾的项保存在“角色管理”相应角色行的“授权集合”列里面

员工订单管理,下料

经理订单管理,业务管理

超级经理订单管理,业务管理,生产管理

大红袍老师，请问如何在按钮中设置将相同角色的授权集合同步更新到用户表的授权集合中去呢2

此主题相关图片如下：006.png

此主题相关图片如下：005.png

主题：[求助]关于目录树角色授权问题【已解决】