以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [推荐]怎样合并表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38199)
--  作者：dd6b
--  发布时间：2013/7/22 16:47:00
--  [推荐]怎样合并表
有哪位高手知道怎样将4个结构一样的表合成一整张表呢？
--  作者：Bin
--  发布时间：2013/7/22 16:48:00
--  
可以使用数据填充器哦 http://www.foxtable.com/help/topics/0680.htm
--  作者：dd6b
--  发布时间：2013/7/22 17:16:00
--  
能否一次指定多个来源表呢？
--  作者：Bin
--  发布时间：2013/7/22 17:16:00
--  
只能一个个来哦.
--  作者：dd6b
--  发布时间：2013/7/22 17:24:00
--  
已经搞定了，万分感谢！
--  作者：狐狸爸爸
--  发布时间：2013/7/22 17:25:00
--  

这样：

 

Dim nms As String() = {"表Ax","表Ce","表Xw"}  ‘指定来源表，可以任意多个
For Each nm As String In nms
    Dim f As New  Filler
    f.SourceTable = DataTables(nm) \'指定这次的来源表
    f.SourceCols = "产品,客户"  \'指定数据来源列
    f.DataTable = DataTables("统计") \'指定数据接收表
    f.DataCols = "产品,客户"  \'指定数据接收列
    f.Fill() \'填充数据
Next