- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 记录锁定 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129345)
-- 发布时间：2018/12/26 18:41:00
-- [求助] 记录锁定
请问版主，将图中该记录锁定后，如何自动锁定所有页标签中跟这个shippingno 相同的所有的记录，锁定的所有的记录背景颜色灰色，字体红色。而且该页面中不允许新增记录。谢谢版主了。
[此贴子已经被作者于2021/5/21 18:41:19编辑过]
-- 发布时间：2018/12/26 21:22:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:packinglist tool.table |
-- 发布时间：2018/12/26 21:42:00
--
版主，怎么操作？ 没有看到什么。
-- 发布时间：2018/12/26 22:07:00
--
版主，看到了，可是还是可能新增记录的
-- 发布时间：2018/12/26 22:38:00
--
以下是引用sanny在2018/12/26 22:07:00的发言：
版主，看到了，可是还是可能新增记录的
版主，看到了，可是还是可能新增记录的
beforeadddatarow事件写代码
If Tables("表A").current.locked Then
e.cancel = true
End If
-- 发布时间：2018/12/27 8:09:00
--
版主，我只要字体是红色，改成如下，不对，能帮修改一下吗？谢谢。
e.Table.DataTable.AddUserStyle("a",Color.white,Color.red)
-- 发布时间：2018/12/27 9:15:00
--
以下是引用sanny在2018/12/27 8:09:00的发言：
版主，我只要字体是红色，改成如下，不对，能帮修改一下吗？谢谢。
e.Table.DataTable.AddUserStyle("a",Color.white,Color.red)
代码没问题，你尝试关闭重新打开测试。
-- 发布时间：2018/12/27 11:54:00
--
以下代码加了后，还是可以在costomerinvoce and packinglist 中新增记录的。我加在shippment表属性中。
beforeadddatarow事件写代码
If Tables("表A").current.locked Then
e.cancel = true
End If
-- 发布时间：2018/12/27 12:08:00
--
1、表名改成你自己的表名 shippment 啊
2、代码写到 costomerinvoce 的表事件啊