Dim bm As String = "商超贷KS"
Dim g As New CrossTableBuilder(bm, DataTables("实际基表"))
Dim dt As fxDataSource
g.HGroups.AddDef("项目")
g.HGroups.AddDef("指标")
g.VGroups.AddDef("年月","实际_{0}")
g.Totals.AddDef("数值", "数值")
Output.Show(s1)
g.Filter = "年月 in (" & s1 & ")"
'g.Build
dt = g.BuildDataSource
Dim g1 As New CrossTableBuilder("统计表1", DataTables("预测基表"))
Dim dt1 As fxDataSource
g1.HGroups.AddDef("项目")
g1.HGroups.AddDef("指标")
g1.VGroups.AddDef("年月","预测_{0}")
g1.Totals.AddDef("数值", "数值")
dt1 = g1.BuildDataSource
Dim nms As String() = {"项目","指标"}
dt.Combine(nms,dt1,nms)
dt.show(bm)
Tables(bm).AutoSizeCol("项目")
Tables(bm).AutoSizeCol("指标")
MainTable = Tables(bm)