请看,我是这样写的,为何报错呢?
Dim g1 As New CrossTableBuilder("结存统计", DataTables("上月结存"))
Dim f1 As fxDataSource
g1.HGroups.AddDef("款号")
g1.VGroups.AddDef("尺码")
g1.Totals.AddDef("数量", "结存_数量")
g1.Build()
f1 =g1.BuildDataSource()
Dim g2 As New CrossTableBuilder("入库统计", DataTables("本月入库"))
Dim f2 As fxDataSource
g2.HGroups.AddDef("款号")
g2.VGroups.AddDef("尺码")
g2.Totals.AddDef("数量", "入库_数量")
g2.Build()
f2 =g2.BuildDataSource()
Dim g3 As New CrossTableBuilder("出库统计", DataTables("本月出库"))
Dim f3 As fxDataSource
g3.HGroups.AddDef("款号")
g3.VGroups.AddDef("尺码")
g3.Totals.AddDef("数量", "出库_数量")
g3.Build()
f3 =g3.BuildDataSource()
Dim g4 As New CrossTableBuilder("销售统计", DataTables("本月销售"))
Dim f4 As fxDataSource
g4.HGroups.AddDef("款号")
g4.VGroups.AddDef("尺码")
g4.Totals.AddDef("数量", "销售_数量")
g4.Build()
f4 =g4.BuildDataSource()
f1.Combine("款号",f2,"款号") '将入库统计数据组合到结存统计数据
f1.Combine("款号",f3,"款号") '将出库统计数据组合到结存统计数据
f1.Combine("款号",f4,"款号") '将销售统计数据组合到结存统计数据
Tables("统计窗口_Table1").DataSource = f1 '将统计结果绑定到Table
With DataTables("统计窗口_Table1").DataCols '用表达式列计算库存数据
.Add("库存_数量",Gettype(Integer), "IsNull([入库_数量],0)+IsNull([结存_数量],0) - ISNULL([销售_数量],0) - ISNULL([出库_数量],0)")