Dim bd1 As New GroupTableBuilder("库存表1",DataTables("入库表"))
Dim dt1 As fxDataSource
bd1.groups.AddDef("样品编号") '根据型号分组
bd1.Totals.AddDef("入库数量","入库_数量") '对数量进行统计
bd1.Totals.AddDef("单位","入库_单位")
dt1 = bd1.BuildDataSource()
Dim bd2 As New GroupTableBuilder("库存表2",DataTables("出库表"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("样品编号") '根据型号分组
bd2.Totals.AddDef("出库数量","出库_数量") '对数量进行统计
bd2.Totals.AddDef("单位","出库_单位")
dt2 = bd2.BuildDataSource()
Dim bd3 As New GroupTableBuilder("库存表3",DataTables("退货表"))
Dim dt3 As fxDataSource
bd3.Groups.AddDef("样品编号") '根据型号分组
bd3.Totals.AddDef("数量","退货_数量") '对数量进行统计
bd3.Totals.AddDef("单位","退货_单位")
dt3 = bd3.BuildDataSource()
dt1.Combine("样品编号",dt2,"样品编号") '将销售统计数据组合到进货统计数据
dt1.Combine("样品编号",dt3,"样品编号") '将退货统计数据组合到进货统计数据
Tables("成品管理_Table5").DataSource = dt1 '将统计结果绑定到Table
With DataTables("成品管理_Table5").DataCols '用表达式列计算库存数据
.Add("库存数量",Gettype(Integer), "IsNull([入库_数量],0) - ISNULL([出库_数量],0) - ISNULL([退货_数量],0)")
按照这段代码，应该显示“样品编号”这一列，为何运行时没有出现呢？问题出在哪里呢？
此主题相关图片如下：1212.png
加好友 
发短信
Post By：2015/8/17 16:06:00 [只看该作者]
