主题：怎样做到附件中一样的统计

帮忙看看这个附件。我想实现附件中一样的的统计效果该怎样实现！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:示例.xlsx

我现在用的代码是这样的：

 

Dim lbl3,lbl4 As WinForm.DateTimePicker
lbl3 = e.Form.Controls("DateTimePicker3")
lbl4 = e.Form.Controls("DateTimePicker4")
    e.Form.Controls("打印预览").Enabled = False
    e.Form.Controls("直接打印").Enabled = False
Dim   bd1 As  New  GroupTableBuilder("统计表1",DataTables("商品库存"))
Dim  dt1 As   fxDataSource
 bd1.Groups.AddDef("Item")  '根据型号分组
bd1.Groups.AddDef("EnglishDescription")  '根据型号分组
bd1.Groups.AddDef("ChineseDescription")  '根据型号分组
bd1.Groups.AddDef("EnglishBrand")  '根据型号分组
bd1.Groups.AddDef("ChineseBrand")  '根据型号分组
bd1.Groups.AddDef("ItemCategory")  '根据型号分组
dt1 =   bd1.BuildDataSource()

Dim  bd2 As  New   GroupTableBuilder("统计表2",DataTables("出入记录"))
bd2.Filter = "[作业时间] >= # " & lbl3.value & "# and [作业时间] <= # " & lbl4.value & " #  and 操作类型 = '入库'"
Dim  dt2  As   fxDataSource
 bd2.Groups.AddDef("货品编号")  '根据型号分组
bd2.Totals.AddDef("数量","入库_数量")  '对数量进行统计
dt2 =   bd2.BuildDataSource()

Dim  bd3 As  New   GroupTableBuilder("统计表3",DataTables("出入记录"))
bd3.Filter = "[作业时间] >= # " & lbl3.value & "# and [作业时间] <= # " & lbl4.value & " #  and 操作类型 = '出库'"
Dim  dt3  As   fxDataSource
bd3.Groups.AddDef("货品编号")  '根据型号分组
bd3.Totals.AddDef("数量","出库_数量")  '对数量进行统计
dt3 =   bd3.BuildDataSource()

dt1.Combine("Item",dt2,"货品编号")  '将销售统计数据组合到进货统计数据
dt1.Combine("Item",dt3,"货品编号")  '将退货统计数据组合到进货统计数据
e.Form.Controls("提示").text = "日报表统计"
Tables("报表统计_Table1").DataSource =   dt1  '将统计结果绑定到Table

 

效果是：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:日报表统计.xls

 请问我要怎样改才能像附件一一样的效果！

此主题相关图片如下：1498466945(1).jpg

想在组合统计的基础上做到这样类似于交叉统计的效果 ，就是该商品在所选统计月哪一天入库哪一天出库了，是一整个月日期都列出，然后在发生变化的日期in或者out写上相应的数据。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

没弄明白，只能请教大伙了

不胜感激！

这个模板要怎样改才能有后面的

此主题相关图片如下：1498707192(1).jpg

我这么改是不行的，后面要写什么 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:日报表统计.xls