Dim h As Row=Tables("采购订单").Current Dim ks As New List(Of String) For Each r As Row In Tables("组合明细").Rows If r("花束编号")=h("花束编号") Then ks.Add(r("物品编码")) End If Next Dim ue As String Dim sum As Double=0 For Each ue In ks sum=sum+Tables("订单明细").Compute("Sum(数量)", "物品编码 = '" & ue & "'") Next Output.Show(Sum)
|