此主题相关图片如下：1111.jpg
老师，我这左边用户目录树、中间角色表，右边权限名称，我已经给每个角色增加了权限，这个保存在 角色权限表 ，现在我要 点了用户，然后点角色，点角色的同时，该角色下面拥有的权限，同时右边权限名称表 复选框选中，然后该用户如果还需要 该角色外的其它权限，再勾选，然后 保存到 用户权限表中
现在的问题是 点了角色后，该角色对应的 权限名称复选框选不中，应该是角色勾选这块有些问题，请老师帮忙看看代码
Dim bj As String = e.Form.Controls("编号").text
Dim yh As String = e.Form.Controls("用户").text
For Each r2 As Row In Tables("用户管理_Table4").GetCheckedRows '角色表
Dim dr1 As DataRow
dr1 = DataTables("角色权限表").Find("角色名称 = '" & r2("角色名称") & "'and 角色编号 = '" & r2("编号") & "'")
If dr1 IsNot Nothing Then
For Each r As Row In Tables("用户管理_Table3").GetCheckedRows '权限名称表
r.Checked = True
Dim r3 As Row = Tables("用户权限表").AddNew
r3("用户编号") = bj
r3("用户") = yh
Dim abs() As String ={"类别编号","权限类别","分组编号","权限分组","权限名称"}
For Each ab As String In abs
r3(ab) = r(ab)
Next
r3("权限编号") = r("编号")
r.Checked = False
Next
End If
Next
加好友 
发短信
Post By：2020/7/23 9:29:00 [显示全部帖子]
