- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何用代码合并几个相同结构的表？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38236)
-- 发布时间：2013/7/23 16:01:00
-- 如何用代码合并几个相同结构的表？
如何用代码合并几个相同结构的表？
-- 发布时间：2013/7/23 16:05: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
-- 发布时间：2013/7/23 16:49:00
--
搞定！多谢！！！！！