主题：[讨论]批次库存查询表

此主题相关图片如下：批次库存表.jpg

 
此主题相关图片如下：入库表.jpg


此主题相关图片如下：出库表.jpg


入库表详见图片
出库表详见图片
批次库存表详见图片

要求：
1）按年月批次计算出每个商品的入库数量
2）按年月批次计算出每个商品的出库数量
3）根据对应的年月批次计算每个商品该年月批次的库存数量

代码如下：
Dim jb As New SQLJoinTableBuilder("批次库存表","入库表")
Dim Cols1() As String = {"物料编号","年月批号"}
Dim Cols2() As String = {"物料编号","年月批号"}
jb.AddTable("入库表",Cols1,"出库表",Cols2,JoinModeEnum.Left)
jb.AddCols("{入库表}.物料编号","{入库表}.物料名称","{入库表}.规格描述","{入库表}.单位","{入库表}.年月批号",True)
jb.AddExp("入库数量","Sum({入库表}.入库数量)")
jb.AddExp("出库数量","Sum({出库表}.出库数量)")
jb.AddExp("库存数量","Sum({入库表}.入库数量)-Sum({出库表}.出库数量)")
jb.Build()
MainTable = Tables("批次库存表")

得到的结果存在计算错误，详见《批次库存表》，请各位大虾看看问题出在什么地方？

 了解了，谢谢狐爸。

 狐爸，我用下面的代码可以计算出正确的入库数量，出库数量了，但是不知道如何添加表达式计算库存数量？帮助中正好缺这部分内容。
请指教，谢谢！


Dim bd1 As New GroupTableBuilder("统计表1",DataTables("入库表"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("物料编号")
bd1.Groups.AddDef("年月批号")
bd1.Totals.AddDef("入库数量","入库数量1")
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("出库表"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("物料编号")
bd2.Groups.AddDef("年月批号")
bd2.Totals.AddDef("出库数量","出库数量1")
dt2 = bd2.BuildDataSource()

Dim nms As String() = {"物料编号","年月批号"}
dt1.Combine(nms,dt2,nms)

dt1.Show("统计表1")

试了不成功，那个适用于Table控件，不适用 统计表1，不知道什么原因？

With DataTables("统计表1").DataCols  '用表达式列计算库存数据
    .Add("库存数量1",Gettype(Integer), "IsNull([入库数量1],0) - ISNULL([出库数量1],0))")
End With

 狐爸的是正解，已解决。谢谢！