主题：怎么写代码判断子表字段全部完成为true,设置主表完成为true

参考 示例四 http://www.foxtable.com/webhelp/scr/2649.htm

适当修改代码

If e.DataCol.name = "审核" Then
    Dim pr As DataRow = DataTables("订单").find("编号 = '" & e.DataRow("编号") & "'")
    If pr IsNot Nothing Then
        Dim crs As List(of DataRow) = e.DataTable.Select("编号 = '" & e.DataRow("编号") & "'")
        Dim cnt As Integer
        For Each cr As DataRow In crs
            If cr("审核") = True
                cnt = cnt + 1
            End If
        Next
        pr("审核") = (crs.Count = cnt)
    End If
End If