主题：锁定订单明细

以下是帮助的代码，我的需求是：订单表有一排产的逻辑，勾选排产，不锁定订单表，只锁定订单明细表，字体颜色变灰，取消勾选，解锁。字体颜色恢复。订单表与订单明细表通过订单单号关联。代码如何修改？

For Each dr As DataRow In e.DataRow.GetChildRows("订单明细")

    dr.Locked = e.DataRow.Locked

Next

假定订单和订单明细表都有一个名为“审核”的列，逻辑型，要求某订单的所有订单明细全部审核通过后，才能审核订单。
为此可以将订单表的PrepareEdit事件代码设置为：

If e.Col.name = "审核" Then
    For Each dr As DataRow In e.Row.DataRow.GetChildRows("订单明细")
        If dr("审核") = False Then
            e.Cancel = True
            Exit For
        End If
    Next
End If

只有订单表有排产列，订单明细表没有，我的需求是不锁订单表，只锁订单明细表，并且字体颜色变灰。

取消锁定呢？

一样适用，代码不变。

在4楼的代码中，能锁定明细表的关联行，如何控制关联行不能新增？

参考：http://www.foxtable.com/webhelp/scr/0463.htm

if Tables("销售订单").Current("排产") = true