主题：[求助]

老师好！有个父表“从业人员健康检查登记表”，子表“从业人员健康检查表”，父表有一列“体检人数”，希望在关联表中增加行时给予限制，就是增加行数不能超过“体检人数”。在子表的BeforeAddDataRow事件中执行代码：Dim d As DataRow  = e.DataRow.GetParentRow("从业人员健康检查登记表")

 BeforeAddDataRow 根本不知道它的父亲是谁。

 

 或者你这样写

 

Dim d As Row  = Tables("从业人员健康检查登记表").Current

If d IsNot Nothing Then

    Dim crs As List(of DataRow) = d.DataRow.GetChildRows("从业人员健康检查表")

    Dim n As Integer  = crs.Count

    If n >= d("体检人数")  Then

        e.Cancel = True

    Else

        e.Cancel = False

    End If

End If

非常感谢！解决了。哈哈哈哈哈哈。。。。努力不够，请多关照。