- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教老师 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152809)
-- 发布时间：2020/7/22 22:28:00
-- 请教老师
此主题相关图片如下：qq截图20200722222138.jpg
老师我要左边角色表当前行选中，右边权限表勾选的行，然后点 保存，把信息保存到 角色权限表里，现在出现问题了， 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
-- 发布时间：2020/7/22 22:40:00
--
Dim r1 As Row = Tables("角色表").Current
For Each r As Row In Tables("用户管理_Table2").GetCheckedRows \'商品明细表
Dim r2 As Row = Tables("角色权限表").AddNew
r2("角色名称") = r1("角色名称")
r2("角色编号") = r1("编号")
r2("权限编号") = r("编号")
r2("类别编号") = r("类别编号")
Dim abs() As String ={"权限类别","分组编号","权限分组","权限名称"}
For Each ab As String In abs
r2(ab) = r(ab)
Next
Next