主题：[原创]表达式有无乘积（像求和sum这种）的功能

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

 

如果用公式，可以sum后，对比count的值。

 

或者看看 http://www.foxtable.com/webhelp/scr/2472.htm

 

If e.DataCol.name = "审核" Then
    Dim pr As DataRow = e.DataRow.GetParentRow("订单")
    If pr IsNot Nothing Then
        Dim crs As List(of DataRow) = pr.GetChildRows("订单明细")
        Dim cnt As Integer = 0
        For Each cr As DataRow In crs
            If cr("审核") = True
                cnt = cnt + 1
            End If
        Next
        pr("审核") = iif(cnt >= 1, true, false)
    End If
End If