| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [讨论]关联表锁定所有行？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21509) |
| -- 作者：lsf5138 -- 发布时间：2012/7/15 0:45:00 -- [讨论]关联表锁定所有行？ 请问下： 有个 审核按钮 按了就锁定主表的当前行 我想让 关联表的所有行也锁定 不知道可以吗 如果可以请给个 锁定关联表所有行 和 解锁关联表所有行 的代码 谢了 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
| -- 作者：sloyy -- 发布时间：2012/7/15 1:08:00 -- 锁定关联表： Tables( "关联表名").AllowEdit = False如果要取消锁定关联表： Tables( "关联表名").AllowEdit = True |
| -- 作者：lsf5138 -- 发布时间：2012/7/15 6:44:00 -- 先谢了 说的是锁关联表的所有行 不是锁关联表， 意义是不一样 锁关联表后，选择主表的所有记录（包括未审核的）关联表的数据也不能修改了。 锁关联表的所有行，选择主表未审核的记录，关联表可修改。 [此贴子已经被作者于2012-7-15 6:55:23编辑过]
|
| -- 作者：sloyy -- 发布时间：2012/7/15 11:02:00 -- 加个条件呀 : if tables("主表").current("审核")=True then Tables("关联表名").AllowEdit = False else Tables("关联表名").AllowEdit = True endif |
| -- 作者：jianjingmaoyi -- 发布时间：2012/7/15 11:03:00 -- Dim drss As List(Of Datarow) Dim sd As integer = Tables("表名").Current("编号") drss = DataTables("表名").Select("[编号]= \' " & sd & " \' ") For Each dr As DataRow In drss dr.Locked() =true Next
|
| -- 作者：czy -- 发布时间：2012/7/15 14:56:00 -- 可能这样好一点：
Dim drs As List(Of DataRow) = CurrentTable.Current.DataRow.GetChildRows("关联表") |
| -- 作者：程兴刚 -- 发布时间：2012/7/15 16:21:00 -- 好久不见曹版了！ |