老师我要左边角色表当前行选中,右边权限表勾选的行,然后点 保存,把信息保存到 角色权限表里,现在出现问题了, Dim abs() As String ={"权限类别","分组编号","权限分组","权限名称"} 保存的字段可以 添加进去,这个之外的字段 不但不能添加到表里,且原表表里对应字段的值 好像也给删除了
For Each r As Row In Tables("用户管理_Table2").GetCheckedRows \'商品明细表
Dim r1 As Row = Tables("角色表").Current
Dim r2 As Row = Tables("角色权限表").AddNew
r1("角色名称") = r2("角色名称")
r1("编号") = r2("角色编号")
r("编号") = r2("权限编号")
r("类别编号") = r2("类别编号")
Dim abs() As String ={"权限类别","分组编号","权限分组","权限名称"}
For Each ab As String In abs
r2(ab) = r(ab)
Next
Next