可以在下面的运算结果是否小于0吗？如果小于0就提示超过库存量
如果不会小于0就执行，
麻烦就是在于，是在执行代码后的结果来判断，感谢 感谢
If e.DataRow.IsNull("订单号据_联产编号")=False Then
Dim dr As DataRow = DataTables("库存").Find("属性_产品编号='" & e.DataRow("订单号据_联产编号") & "'")
If dr IsNot Nothing Then
dr("实况_数量")= DataTables("采购记录").Compute("sum(采购_数量)","产品_编号='" & e.DataRow("订单号据_联产编号") & "' and 采购_状态='已完成'")-DataTables("订单附产品表").Compute("sum(订单_数量)","订单号据_联产编号='" & e.DataRow("订单号据_联产编号") & "' and 订单_库存状态='已出库'")
End If
End If '计算待收款 在回款表有配套代码
加好友 
发短信
Post By：2018/7/10 10:18:00 [显示全部帖子]
