以下是引用大红袍在2015/9/19 10:36:00的发言:
用filler两次就行啊,要变通
试过了,代码如下:
Dim dtb As New DataTableBuilder("销售统计表")
dtb.AddDef("销售平台", Gettype(String), 32)
dtb.AddDef("活动分类", Gettype(String), 32)
dtb.AddDef("产品名称", Gettype(String), 32)
dtb.AddDef("数量", Gettype(Integer))
dtb.AddDef("金额", Gettype(Double))
dtb.AddDef("销售日期", Gettype(Date))
dtb.AddDef("产品一类", Gettype(String), 32)
dtb.AddDef("产品二类", Gettype(String), 32)
dtb.AddDef("产品三类", Gettype(String), 32)
dtb.Build()
MainTable= Tables("销售统计表")
Dim f As New Filler
f.SourceTable = DataTables("销售表") '指定数据来源
f.SourceCols = "销售平台,活动分类,销售日期" '指定数据来源列
f.DataTable = DataTables("销售统计表") '指定数据接收表
f.DataCols = "销售平台,活动分类,销售日期" '指定数据接收列
f.Fill() '填充数据
Dim a As New Filler
a.SourceTable = DataTables("销售明细表") '指定数据来源
a.SourceCols = "产品名称,数量,金额,产品一类,产品二类,产品三类" '指定数据来源列
a.DataTable = DataTables("销售统计表") '指定数据接收表
a.DataCols = "产品名称,数量,金额,产品一类,产品二类,产品三类" '指定数据接收列
a.Fill() '填充数据
可是生成的临时表没有“销售平台,活动分类,销售日期”的内容,只有“产品名称,数量,金额,产品一类,产品二类,产品三类”,为啥呢