- 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=141643)
-- 发布时间：2019/10/7 22:28:00
-- 请教老师如何修改库存出库
For Each r As Row In Tables("出售").Rows
Dim dr As DataRow = DataTables("库存").Find("[编码] = \'" & r("备件_编码") & "\'")
If r("备件_领用数量")>dr("数量") Then
MessageBox.Show("库存不足!")
r.Delete()
End If
dr("数量")=dr("数量")-r("备件_领用数量")
领用数据>数量时，出库数据不能实现删除。并且，库存数据不运算。
-- 发布时间：2019/10/8 9:30:00
--
看不懂这个业务，项目实例发上来看看
-- 发布时间：2019/10/8 10:30:00
--
有两个表“库存”和“出售”，从“出售”表中录入数据，在“库存”表找到物料，并出库处理，从库存中减去出库数量，假如库存数量不足显示“库存不足”，不做出库处理，数量>库存时，进行出库处理，并减少库存数量。
-- 发布时间：2019/10/8 10:47:00
--
参考：http://www.foxtable.com/webhelp/topics/1472.htm
直接增减库存不好控制，而且并发操作容易出错，建议还是使用统计的办法获取库存(入库数量-出库数量）。
-- 发布时间：2019/10/8 12:41:00
--
周期结帐是怎样设置的
-- 发布时间：2019/10/8 14:19:00
--
没看懂，截图或者上传实例说明
-- 发布时间：2019/10/8 22:44:00
--
此主题相关图片如下：出库.png
此主题相关图片如下：库存.png
[此贴子已经被作者于2019/10/8 22:47:41编辑过]
-- 发布时间：2019/10/8 22:54:00
--
麻烦配合使用文字说明一下要做什么功能？
-- 发布时间：2019/10/9 22:37:00
--
有两个表“库存”和“出库”，从“出库”表中录入数据，在“库存”表找到物料，并出库处理，从库存表中减去出库数量，库存表中数量不足显示“库存不足”，不做出库处理； 当库存数量>出库数量时，进行出库处理，现有库存=库存数量-出库数量。
-- 发布时间：2019/10/9 22:43:00
--
代码大概。
出库表的DataColChanging事件：
If e.DataColNamme = "出库数量" Then
Dim dr As DataRow = DataTables("库存表").Find("产品编码 = \'" & e.DataRow("产品编码") & "\'")
if dr isnot Nothing Then
if dr("数量") < e.NewValue Then
Messagebox.Show("库存不够!")
e.Cancel = True
Else
dr("数量") = dr("数量") - e.NewValue
End If
End If