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

Select Case e.DataCol.Name
    Case "上月库存","本月入库数量","新厂借用数量","本月出库数量"
        e.DataRow("月未库存") = e.DataRow("上月库存") + e.DataRow("本月入库数量") - e.DataRow("新厂借用数量") - e.DataRow("本月出库数量")
    Case "月未库存","库存差额","盘点数"
        e.DataRow("库存差额") = e.DataRow("月未库存") - e.DataRow("盘点数")       
End Select

 不明白你的意思，你修改了对应的列的数据，就会统计对应列的数据了啊，

 

在进仓表输入数据的时候，你要写对应的代码，才会触发盘点表的列的数据改变的。比如这句

 

fdr("本月入库数量") = DataTables("进仓").Compute("sum(数量)","存货名称 ='" & e.DataRow("存货名称") & "'")

 

如果你要改变对应列的数据，也要写入类似的代码。

 不明白你的意思，如果你要根据系统日期统计本月的数据，就类似这样写

 

        If fdr IsNot Nothing Then
            Dim d As Date = new Date(Date.Today.Year,Date.Today.Month,1)
            fdr("本月入库数量") = DataTables("进仓").Compute("sum(数量)","存货名称 ='" & e.DataRow("存货名称") & "' and 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#")
        End If

 你盘点表不应该清零数据。你的盘点表就要有日期列，并且都填上日期，比如 2014-07-01，这样就能计算显示每个月的盘点数据了。

 

 在查找统计的时候，加上日期范围即可。参考14楼。

 

如果你要按照你的思路，可以这样做，如果想进入第二个月的话，就执行一下这段代码清空数据。

 

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

 回复18楼，16、17楼都写给你了。

 

 如果你想保留每个月的数据，你就在月初的时候，导入一次物料，并填入当月的日期。

 

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

 

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

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

 

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

 

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