复选框同步选中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：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)

r3("权限编号") = r("编号")

r.Checked = False

End If

dim r2 As Row = Tables("用户管理_Table4").current

for each s as string in DataTables("角色权限表").getvalues("权限编号","角色名称 = '" & r2("角色名称") & "'and 角色编号 = '" & r2("编号") & "'")

for each rr as row in Tables("用户管理_Table3").rows

if rr("编号") = s then

rr.Checked =true

exit for

end if

老师在请教一下，这个选择后，对应的权限名称也选上了 rr.Checked =true 是行选中了，可是看不到，只有点了保存才能看到权限，这个如何选择了角色，权限名称表的复选中也打上勾，因为现在保存前，不知道这个角色到底都拥有什么权限的

同样的方法啊，找到权限名称表对应的行，然后.Checked =true

For Each r13 As Row In Tables("用户管理_Table4").GetCheckedRows

For Each s As String In DataTables("角色权限表").getvalues("权限编号","角色名称 = '" & r13("角色名称") & "'and 角色编号 = '" & r13("编号") & "'")

For Each rr As Row In Tables("用户管理_Table3").GetCheckedRows

If rr("编号") = s Then

rr.Checked = True

Exit For

End If

Next 老师，我还是无法成功，改成这个复选框，不执行代码，复选框的还是无法 √ 这样，

请上传实例说明

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

我现在经理角色新增往来单位、编辑往来单位、新增费用信息

会计角色新增费用信息编辑费用信息

我希望选了，角色后，右边权限名称表对应的行，同步显示，（复选框打钩）

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目11.zip

老师，我发给你的这个是内部数据源，实际项目用sql

2008数据库，afterload的刷新语句不起作用，还是不能勾选，奇怪了

看table4的currentchanged事件

如果数据没有加载，就改为后台查询

主题：复选框同步选中