主题：角色授权

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

 

我这是一个角色授权功能，选择左边的目录树，右边是权限明细，点了左边的目录树，然后选右边的权限，然后保存到角色权限表里，可是这块怎么也弄不对，保存写了代码DataTables("角色权限表").Save() 可是怎么也保存到这个表里，这个应该在哪块写

上传具体的项目实例测试。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:data.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:权限管理.rar

我要实现 在角色维护里，角色点了右面对应的权限，然后把这记录保存到角色权限表里，然后返回来再看的时候，对应的角色勾选了相应的权限

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:权限管理.zip

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:权限管理.foxdb

老师，我后面又添加了人员权限维护窗体，实现点了部门下的员工，人员编号，人员姓名 填入到对应的位置，这个不会写，员工角色权限从角色权限表里已经取出来，比如这个人拥有系统维护的连个权限，但是他还要这个角色之后包含的权限，我选择对应添加的权限，然后试着修改了角色权限窗口下的取值办法，可是不知道怎么也出来不了结果，保存不到表里，代码如下：

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

SystemReady= False
For Each r As Row In Tables("权限明细表").Rows
    r.Checked  = False
Next

For Each qx As String() In DataTables("人员权限表").GetValues("权限类别|权限明细","人员编号='" & dr("人员编号") & "'")
    Dim idx As Integer = Tables("权限明细表").FindRow("权限类别='" & qx(0) & "' and 权限明细='" & qx(1) & "'and 人员编号='" & qx(2) & "'")
    If idx > -1 Then
        Tables("权限明细表").Rows(idx).Checked = True
    End If
Next
SystemReady= True

If idx > -1 Then
        Tables("权限明细表").Rows(idx).Checked = True 这块什么意思，给讲一下吧

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:权限管理 (2).foxdb