主题：[求助]父表一旦审核审核，子表相关明细不增加，不删除，不修改，并锁定，如何操作？

 子表beforeAddDataRow

Dim cr As Row = Tables("结算总表").Current

If cr.IsNull("审核人") = False Then

    e.Cancel = true

    msgbox("不能新增")

End If

 父表datcolchanged事件

Select Case e.DataCol.Name
    Case "审核人"
        Dim b As Boolean = e.DataRow.IsNull("审核人")
        DataTables("结算明细").ReplaceFor("_locked", not b,"id = '" & e.DataRow("id") & "'")
End Select