以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请老师指点进销存设计出库编码如何编写？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138174)
--  作者：lg_yaolong
--  发布时间：2019/7/24 14:26:00
--  请老师指点进销存设计出库编码如何编写？

Dim tr As Row = Tables("出库").Current
For Each r As Row In Tables("出库").Rows 
    Dim dr As DataRow = DataTables("库存").Find("[编码] = \'" & r("备件_编码") & "\'")
    If r("备件_领用数量")>dr("数量") Then
        MessageBox.Show("库存不足!不能出库")
    End If
    tr.Delete   
    dr("数量")=dr("数量")-r("备件_领用数量")
Next

请老师指点，进销存系统中物资出库编码如何编写？如何修改。

 
--  作者：有点蓝
--  发布时间：2019/7/24 14:44:00
--  
这种库存计算很容易产生误差。建议不要更改数量，而是通过表达式或者代码的方式统计实时库存，如：http://www.foxtable.com/webhelp/topics/2359.htm
--  作者：lg_yaolong
--  发布时间：2019/7/24 18:01:00
--  
感谢