主题：请问如何制作每月的进销存报表

 这个报表是生成的报表？还是设计每个月的报表再填进去？就是不知道这个月初库存怎么处理。教程是看了的，天天都在看。

 

如何在库存中显示是累计的值？

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("入库"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("商品名称") '根据型号分组
bd1.groups.adddef("日期","月")
bd1.Totals.AddDef("入库数量","入库_数量") '对数量进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("出库"))
Dim dt2  As fxDataSource
bd2.Groups.AddDef("商品名称") '根据型号分组
bd2.groups.adddef("日期","月")
bd2.Totals.AddDef("出库数量","出库_数量") '对数量进行统计
dt2 = bd2.BuildDataSource()

Dim nms As String() = {"商品名称","月"} '指定连接列
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
Tables("窗口1_Table1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("窗口1_Table1").DataCols  '用表达式列计算库存数据
    .Add("库存_数量",Gettype(Integer), "IsNull([入库_数量],0) - ISNULL([出库_数量],0)")
End With

 
请狐狸爸爸看看，感觉这样有点浪费代码。
Dim bd1 As New GroupTableBuilder("统计表1",DataTables("入库"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("商品名称") '根据型号分组
bd1.groups.adddef("日期","月")
bd1.Totals.AddDef("入库数量","入库_数量") '对数量进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("出库"))
Dim dt2  As fxDataSource
bd2.Groups.AddDef("商品名称") '根据型号分组
bd2.groups.adddef("日期","月")
bd2.Totals.AddDef("出库数量","出库_数量") '对数量进行统计
dt2 = bd2.BuildDataSource()

Dim nms As String() = {"商品名称","月"} '指定连接列
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
Tables("窗口1_Table1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("窗口1_Table1").DataCols  '用表达式列计算库存数据
    .Add("月底库存_数量",Gettype(Integer), "IsNull([入库_数量],0) - ISNULL([出库_数量],0)")
End With

Dim bd3 As New GroupTableBuilder("统计表3",DataTables("窗口1_Table1"))
Dim dt3  As fxDataSource
bd3.Groups.AddDef("商品名称") '根据型号分组
bd3.groups.adddef("月")
bd3.Totals.AddDef("入库_数量")
bd3.Totals.AddDef("出库_数量")
bd3.Totals.AddDef("月底库存_数量",True) '对数量进行统计
dt3 = bd3.BuildDataSource()
Tables("窗口1_Table1").DataSource = dt3
Tables("窗口1_Table1").sort = "月"

 有一个问题，就是如果一个商品还有库存，但是，在一个月里面没有入库也没有出库，就显示不出库存来。

 对啊 谢谢