以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何实现主表锁定后 , 关联表禁止 新增行的操作  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=157621)
--  作者：夜点蚊香
--  发布时间：2020/10/22 18:48:00
--  如何实现主表锁定后 , 关联表禁止 新增行的操作
如何实现主表数据行锁定后 , 关联表禁止 新增行的操作
--  作者：有点蓝
--  发布时间：2020/10/22 20:56:00
--  
参考：http://www.foxtable.com/webhelp/topics/0629.htm

到这个事件，获取父表行（http://www.foxtable.com/webhelp/topics/0432.htm）判断是否已经锁定，锁定就e.Cancel = True \'那么取消输入并提示用户
--  作者：夜点蚊香
--  发布时间：2020/10/22 21:13:00
--  做好了,谢谢指教
在BeforeAddDataRow事件添加以下代码

Dim dr As DataRow = DataTables("学生排课档案").Datarows(0)
Dim pr As DataRow = dr.GetParentrow("课程档案DAY")
If pr.Locked = True Then \'判断主表状态
    e.Cancel = True \'那么取消输入并提示用户
    Messagebox.Show("已经下课了,不能进行操作了,如需造作需要经理授权!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If