主题：老师请教编码

 第二个问题，你为什么要合计结余？ Dim Val1 As Double = e.DataTable.Compute("Sum(库存结余)",Filter)

 每次统计，都是入库减去出库就行了。

 如果你有一个结余数据，需要加入统计，应该用备注列备注为手动录入，这样，再统计这类的数据就好了。