改成表达式列,然后写公式 iif(Sum(Child(订单明细).未交数量)=0, true, false)
写代码也可以,在主表DataColChanged事件,写代码
If e.DataCol.name = "客户订单号" Then
Dim sum As Double = DataTables("订单明细表").Compute("sum(未交数量)", "客户订单号 = '" & e.DataRow("客户订单号") & "'")
If sum = 0 Then
e.DataRow("已结清") = True
Else
e.DataRow("已结清") = False
End If
End If