- 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=129561)
-- 发布时间：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
-- 发布时间：2019/1/3 0:07:00
--
谢谢老师了，为什么我看你们写的代码能看明白，自己就是想不到呢。。。。。
