主题：[求助]将A、B、C、D表中的所有数据导入到统计表里

例如：

 

Dim sql As String = "Sele ct 产品名称,数量,日期 FROM {表A} Union All Se lect 产品名称,数量,日期 FROM {表B} Union All  Se lect 产品名称,数量,日期 FROM {表C}  "
Dim b As New CrossTableBuilder("统计表1",sql, "Sale")
b.HGroups.AddDef("产品名称")
b.VGroups.AddDef("日期","{0}月")
b.Totals.AddDef("数量")
b.HorizontalTotal = True
b.VerticalTotal = True
b.Build()
MainTable = Tables("统计表1")

 

参考：

http://www.foxtable.com/help/topics/0688.htm

http://www.foxtable.com/help/topics/2307.htm

 

注意上面的代码，select加了空格，因为不加空格，论坛通不过

你可以分多次Fill：
Dim nms() AS string = {"表1","表2"，"表3”}
For Each nm as String in nms
     dim f As New Filler
     f.SourceTable = DataTables("订单") '指定数据来源
     f.SourceCols = "产品,客户" '指定数据来源列
     f.DataTable = DataTables(nm) '指定数据接收表
     f.DataCols = "产品,客户" '指定数据接收列
     f.Fill() '填充数据
Next