主题：订单表按订单完成是否锁定就把下面所有订单编号表锁定

DataColChanging事件

If e.DataCol.Name = "订单完成是否" Then '如果是已结帐列的内容变动
    If e.NewValue = True Then '而且变动后的值是True(已勾选)
        e.DataRow.Locked = True '那么锁定此行
    End If
    Dim tns() As String = {"成衣部位表","辅料表"}
    For Each tn As String In tns
        For Each cdr As DataRow In e.DataRow.GetChildRows(tn)
            cdr.Locked = e.NewValue
        Next
    Next
End If

按钮click事件

Dim t As Table = Tables("订单表")
Dim tns() As String = {"成衣部位表","辅料表"}
t.current.Locked = False
t.Current("订单完成是否") = False
For Each tn As String In tns
    For Each cdr As DataRow In t.current.DataRow.GetChildRows(tn)
        cdr.Locked = False
    Next
Next