不理解你为什么说sum有错。
For Each r As Row In Tables("订单主表").Rows If DataTables("订单明细表").Compute("sum(未交数量)","客户订单号='" & r("客户订单号") & "'") <= 0 Then r("已核销")=True Else r("已核销")=False End IfNext