此主题相关图片如下：汇总.jpg
如上图是交叉统计的结果,现在在表的最后增加了一临时列达成,想实现用每行后后的合计数据
如果合计的出货数量 >= (订单数量+退货数量) 就表示达成
但无法用 r(合计出货数量)等来判断,
用下面的每行计算原来的数据 ,结果Sum1,Sum2,Sum3都是0
Dim Sum1,Sum2,Sum3 As Double
For Each r As Row In tbl.Rows
Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum1 = tbl.Compute("Sum(订单数量)", "产品编码 = '" & r("产品编码") & "'")
Sum2 = tbl.Compute("Sum(出货数量)", "产品编码 = '" & r("产品编码") & "'")
Sum3 = tbl.Compute("Sum(退货数量)", "产品编码 = '" & r("产品编码") & "'")
If Sum2 >= (Sum1 + Sum3) Then
r("达成") = 1
Else
r("达成") = 0
End If
Next
这种情况应该如何获取每种产品的总的出货数量,订单数量及退货数量?
谢谢!
加好友 
发短信
Post By：2019/7/21 22:11:00 [显示全部帖子]
