主题：复制符合条件的行到其它表

我想增加一个按钮，把A表中符合条件的行复制到B表中，B表比A表的列数多，但是B表和A表中相同字段在各自表中的位置不一定相同，能自动匹配列吗？应该怎么实现

Dim f As New Filler
f.SourceTable = DataTables("订单主表") '指定数据来源
f.SourceCols = "订单编号,订单商品编号,购买日期,付款日期,买家电子邮件,买家姓名,买家电话号码,卖家SKU,商品名称,已购买数量,收件人姓名,配送地址1,配送地址2,配送地址3,配送区,配送城市,配送省,配送邮政编码,配送国家/地区,fa piao要求,买家选定的分类,fa piao抬头,fa piao信息,快递公司,物流单号,标识,编号" '指定数据来源列
f.DataTable = DataTables("发货明细表") '指定数据接收表
f.DataCols = "订单编号,订单商品编号,购买日期,付款日期,买家电子邮件,买家姓名,买家电话号码,卖家SKU,商品名称,已购买数量,收件人姓名,配送地址1,配送地址2,配送地址3,配送区,配送城市,配送省,配送邮政编码,配送国家/地区,fa piao要求,买家选定的分类,fa piao抬头,fa piao信息,快递公司,物流单号,标识,编号" '指定数据接收列
f.Fill()

 

1、这样复制时没有问题了，可是俺是菜鸟，条件复制不知道该怎么写代码。

 

2、还有，我这个表就20列，要是有复杂的表超过30列或者50列，也要一个一个的罗列吗？有没有办法不需要罗列，所有的列都复制？

能具体点吗？我是想把A表中“标识”=1的行复制到B表中，请给个具体的代码可以吗？