以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何设置在关联表子表中增加行时对父表的判断条件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9201)

--  作者:红叶
--  发布时间:2011/3/11 9:15:00
--  如何设置在关联表子表中增加行时对父表的判断条件
订单表和订单明细通过编号关联,在父表订单表中有一列"审核",当在子表订单明细表中增加行时,判断如果父表订单表的"审核"为TRUE时,则禁止在子表订单明细表中增加行,这样的代码应该在订单明细表的BeforeAddDataRow如何设置?
[此贴子已经被作者于2011-3-11 9:23:56编辑过]

--  作者:狐狸爸爸
--  发布时间:2011/3/11 9:52:00
--  

在订单明细表BeforeAddRow事件加入代码:

 

Dim r As Row = Tables("订单").Current

If r Is Nothing OrElse r("审核") = False Then

     e.Cancel = True

End If