以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  出库数量大于库存是禁止操作  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129561)

--  作者:syj0102
--  发布时间:2018/12/31 20:54:00
--  出库数量大于库存是禁止操作
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:军.table

怎样设置每个型号的产品出库数量不能大于对应的库存数量,大于时禁止操作!

                               登陆密码:232311
[此贴子已经被作者于2019/1/19 17:22:54编辑过]

--  作者:有点甜
--  发布时间:2019/1/2 10:19:00
--  

出库本datacolchanging事件

 

If e.DataCol.Name.StartsWith("尺码_") Then
    Dim sum1 As Double = DataTables("入库表").compute("sum(" & e.DataCol.name & ")", "款号=\'" & e.DataRow("款号") & "\'")
    Dim sum2 As Double = DataTables("出库表").compute("sum(" & e.DataCol.name & ")", "款号=\'" & e.DataRow("款号") & "\'")
    If sum2-e.OldValue+e.NewValue > sum1 Then
        msgbox("库存不够")
        e.cancel = True
    End If
End If


--  作者:syj0102
--  发布时间:2019/1/3 0:07:00
--  
谢谢老师了,为什么我看你们写的代码能看明白,自己就是想不到呢。。。。。图片点击可在新窗口打开查看