以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关联子表限制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115221)
--  作者：yifan3429
--  发布时间：2018/3/3 0:50:00
--  关联子表限制
关联子表限制

订单表 的需要限制 订单明细 子表行数10行  关联列是订单号

超过10行就会提示，当前明细已满行请在订单表新增订单  
--  作者：有点蓝
--  发布时间：2018/3/3 8:56:00
--  
订单明细BeforeAddDataRow事件

Dim r As Row = Tables("订单").Current
If r IsNot Nothing Then
    If e.DataTable.Compute("Count(订单号)","订单号 = \'" & r("订单号") & "\'") >= 10 Then
        msgbox("已超")
        e.Cancel = True
    End If
End If