主题：如何做到库存实时更新

此主题相关图片如下：qq图片20140721230423.jpg

此主题相关图片如下：qq图片20140721230417.jpg

 

这样做本来就不对，你应该在每月月初的时候运行代码，重新设置值，比如

 

For Each dr As DataRow In DataTables("盘点表").DataRows
    dr("上月库存") = dr("月未库存")
    dr("年月") = Format(Date.Today, "yyyy年MM月")
Next
Dim cs() As String = {"本月入库数量", "新厂借用数量", "盘点数","单笔采购量","本月出库数量", "月未库存","库存差额","备注","单价"}
For Each c As String In cs
    DataTables("盘点表").ReplaceFor(c, Nothing)
Next

关键点是，每个公司都是月未盘点，月初5号之前录入盘点数据，然后和上月进行对比，你的设置，到第二个月初，”年月“，这个字段就自动转化为第二个月，会不会对数据产生影响呢？谢谢，而且录入进仓，也不一定是本月录入，有可能是补单，会不会有影响呢？谢谢

请教一下，你的代码是否放在datacolchanged 里面，如果是，是不是这样放:

 不是，你单独做一个按钮，在需要的时候，再清空数据。

 

For Each dr As DataRow In DataTables("盘点表").DataRows

清空数据，不是代表以前的数据都没有了，盘点表也不能实现查询的功能，只能导出EXCEL保存，foxtale的功能怎么和我想像的不一样呀，其实我这个盘点表也很简单，没有难度，怎么到了最后就成了半成品，而且是不是意味着，我进仓，出仓，等数据每月都要清空。重新录入，做出盘点表再导出保存。

 

那你就这样做：每个月开始下一个月盘点的时候，就用代码【重新导入一次物料信息，导入的同时，给日期列赋值为本月的日期】。进仓表等统计的时候，条件加入日期信息。

进仓单本来就有日期，物料信息没有必要导来导去，本身都有要存的，因为它是相当于一个产品库，

物料信息没有必要存在日期这个字段。

最主要的是盘点表没有办法实现实时库存查询。