以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  库存不足问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=183901)
--  作者：wlj88868
--  发布时间：2022/11/18 12:08:00
--  库存不足问题

老师给提示一下，，这个出库明细会统计当前行输入的数量，，=是出库明细统计了2变，要怎么处理

 

If e.DataCol.name = "数量" Then
    Dim rks As Integer = DataTables("采购入库").Compute("Sum(数量)", "条码=\'" & e.DataRow("条码") & "\'") - DataTables("出库明细").Compute("Sum(数量)", "条码=\'" & e.DataRow("条码") & "\'") + DataTables("退货明细").Compute("Sum(数量)", "条码=\'" & e.DataRow("条码") & "\'")
    If e.newvalue > rks Then
  e.newvalue = Nothing
        msgbox("库存不足!")
        e.cancel = True
    End If
End If
--  作者：有点蓝
--  发布时间：2022/11/18 13:29:00
--  
去掉e.newvalue = Nothing
--  作者：wlj88868
--  发布时间：2022/11/18 19:19:00
--  
老师还有一个问题，，这是判断一列的，，，我要判断多列需要怎么改一下
--  作者：有点蓝
--  发布时间：2022/11/19 8:43:00
--  
If e.DataCol.name = "数量" orelse e.DataCol.name = "条码" Then
--  作者：wlj88868
--  发布时间：2022/11/19 12:27:00
--  

老师是这里的2列

Dim rks As Integer = DataTables("采购入库").Compute("Sum(数量)", "条码=\'" & e.DataRow("条码") & "\'")

这里的想根据出货商场的库存，根据条码和出库商场统计数量

就一个条码把其他商场也统计上去了，退货 的时候就不确定该库存的数量

Dim rks As Integer = DataTables("采购入库").Compute("Sum(数量)", "条码=\'" & e.DataRow("条码") & "\'"AND"所属商场=\'" & e.DataRow("所属商场") & "\'") 后面是这样加吗

 
--  作者：有点蓝
--  发布时间：2022/11/19 13:58:00
--  
Dim rks As Integer = DataTables("采购入库").Compute("Sum(数量)", "条码=\'" & e.DataRow("条码") & "\' AND 所属商场=\'" & e.DataRow("所属商场") & "\'")