For Each dr As DataRow In DataTables("订单明细").Select("D2C款号 = 'L00753020001'", "D2C款号,颜色,_Sortkey")
'计算入库
Dim sumin As Double = DataTables("采购入库明细").compute("sum(采购入库数量)", "款号 = '" & dr("D2C款号") & "' and 颜色 = '" & dr("颜色") & "'")
Dim sumout As Double = DataTables("订单明细").compute("sum(入库数量)", "D2C款号 = '" & dr("D2C款号") & "' and D2C颜色 = '" & dr("D2C颜色") & "' and _Identify <= " & dr("_Identify"))
sumin -= sumout
If sumin >= dr("订单数量") Then
dr("入库数量") = dr("订单数量") （这里想要的是最后一行入库数量=若sumin大于或等于订单数量，则值为sumin,待交货数量=sumin-订单数量，则待入库数量为负数）
dr("待交货数量") = 0
Else
dr("入库数量") = iif(sumin>=0, sumin, 0)
dr("待交货数量") = dr("订单数量") - dr("入库数量")
End If
Next
另外，这段代码每次刷新后的结果会不一样，每次要清空前面刷新后的结果重新刷新结果才正确。
初学者，问题多多啊..
加好友 
发短信
Post By：2015/11/30 11:21:00 [只看该作者]
