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

比如我有5个表，列是相同的。怎么将表A、B、C、D四个表里的所有数据填写到统计表里？

比如列名全是：编号、姓名、电话、卡号

求帮忙

参考

 

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

 

例如：

 

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加了空格，因为不加空格，论坛通不过

dim f As New Filler
f.SourceTable = DataTables("订单") '指定数据来源
f.SourceCols = "产品,客户" '指定数据来源列
f.DataTable = DataTables("统计") '指定数据接收表
f.DataCols = "产品,客户" '指定数据接收列
f.Fill() '填充数据

这样一次只能指定一个数据来源吧？能多指定几个么？

你可以分多次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

这么写以后：错误表达式不产生值。。

8楼代码没问题，贴出你写的。