以文本方式查看主题 -  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=149512)

--  作者：hbhuayue --  发布时间：2020/5/5 8:31:00 --  [求助] 请问各位专家，如果有一个“表A”和关联表“表B”，表A示父表，如何设置代码，在什么位置设置代码，来控制表B中的关联行只允许增加1行？超出1行将跳出提示？谢谢！

--  作者：有点蓝 --  发布时间：2020/5/5 8:41:00 --   表B，BeforeAddDataRow事件 Dim r As Row = Tables("表A").Current If r IsNot Nothing Then     If r.DataRow.GetChildRows("表B").Count > 0 Then         e.Cancel = True     End If End If