用foxtable做的出库管理软件公司一直在用,确实好用,公司的人都说好:可是因为个人是个程序白痴,一直不能实现库存的调拨功能,让软件使用起来有很的部方便,个人也折腾了很久,就是没有办法,今天来请教老师们,希望永久解决问题。谢谢!
我现在的各个仓库的库存是通过如下代码实现的:
表“商品中心”里的代码:
Select Case e.DataCol.name
Case "商品编号","初始数据"
e.DataRow("库存_仓库") = e.DataRow("库存_仓库")
e.DataRow("库存_店铺") = e.DataRow("库存_店铺")
e.DataRow("库存_缓冲") = e.DataRow("库存_缓冲")
If e.DataRow.IsNull("商品编号") = False Then
e.DataRow("库存_仓库") = 0 + DataTables("入库表").Compute("sum(入库数量)", "商品编号 = '" & e.DataRow("商品编号") & "'and 仓库='仓库'") - DataTables("销售表").Compute("sum(销售数量)", "商品编号 = '" &e.DataRow("商品编号") & "'and 仓库='仓库'") + DataTables("退货信息").Compute("sum(退货数量)", "商品编号 = '" &e.DataRow("商品编号") & "'and 仓库='仓库'")
e.DataRow("库存_店铺") = 0 + DataTables("入库表").Compute("sum(入库数量)", "商品编号 = '" & e.DataRow("商品编号") & "'and 仓库='店铺'") - DataTables("销售表").Compute("sum(销售数量)", "商品编号 = '" &e.DataRow("商品编号") & "'and 仓库='店铺'") + DataTables("退货信息").Compute("sum(退货数量)", "商品编号 = '" &e.DataRow("商品编号") & "'and 仓库='店铺'")
e.DataRow("库存_缓冲") = 0 + DataTables("入库表").Compute("sum(入库数量)", "商品编号 = '" & e.DataRow("商品编号") & "'and 仓库='缓冲'") - DataTables("销售表").Compute("sum(销售数量)", "商品编号 = '" &e.DataRow("商品编号") & "'and 仓库='缓冲'") + DataTables("退货信息").Compute("sum(退货数量)", "商品编号 = '" &e.DataRow("商品编号") & "'and 仓库='缓冲'")
e.DataRow("累计_总出库") = DataTables("销售表").Compute("sum(销售数量)", "商品编号 = '" &e.DataRow("商品编号") & "'")
e.DataRow("累计_总入库") = DataTables("入库表").Compute("sum(入库数量)", "商品编号 = '" &e.DataRow("商品编号") & "'")
e.DataRow("库存数量") = e.DataRow("初始数据") + e.DataRow("库存_仓库") + e.DataRow("库存_店铺") + e.DataRow("库存_缓冲")
End If
End Select
现在新增了张“库存调拨”表如下:
此主题相关图片如下:截图.png

请求老师们帮忙修改下“商品中心”表里面的代码,让“库存调拨”表里面各个仓库数据发生变化后,“商品中心”表里面的各个仓库的数据也会发生变化,拜求各位老师了,希望困扰了很久很久的问题得到解决。谢谢