以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]将A、B、C、D表中的所有数据导入到统计表里  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86711)
--  作者：zhangtongrt
--  发布时间：2016/6/23 16:51:00
--  [求助]将A、B、C、D表中的所有数据导入到统计表里
比如我有5个表，列是相同的。怎么将表A、B、C、D四个表里的所有数据填写到统计表里？
--  作者：zhangtongrt
--  发布时间：2016/6/23 16:56:00
--  

比如列名全是：编号、姓名、电话、卡号
--  作者：zhangtongrt
--  发布时间：2016/6/23 17:08:00
--  

求帮忙
--  作者：大红袍
--  发布时间：2016/6/23 17:21:00
--  

参考

 

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

 
--  作者：狐狸爸爸
--  发布时间：2016/6/23 17:28:00
--  

例如：

 

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

 

[此贴子已经被作者于2016/6/23 17:30:51编辑过]
--  作者：狐狸爸爸
--  发布时间：2016/6/23 17:31:00
--  
注意上面的代码，select加了空格，因为不加空格，论坛通不过
--  作者：zhangtongrt
--  发布时间：2016/6/23 17:47:00
--  
以下是引用大红袍在2016/6/23 17:21:00的发言：

参考

 

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

 

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

这样一次只能指定一个数据来源吧？能多指定几个么？
--  作者：狐狸爸爸
--  发布时间：2016/6/23 17:49:00
--  
你可以分多次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
--  作者：zhangtongrt
--  发布时间：2016/6/23 17:56:00
--  
以下是引用狐狸爸爸在2016/6/23 17:49:00的发言：
你可以分多次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

这么写以后：错误表达式不产生值。。
--  作者：大红袍
--  发布时间：2016/6/23 17:58:00
--  
8楼代码没问题，贴出你写的。