主题：[推荐]怎样合并表

这样：

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