以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复制符合条件的行到其它表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31902)
--  作者：likui412282
--  发布时间：2013/4/22 18:37:00
--  复制符合条件的行到其它表
我想增加一个按钮，把A表中符合条件的行复制到B表中，B表比A表的列数多，但是B表和A表中相同字段在各自表中的位置不一定相同，能自动匹配列吗？应该怎么实现
--  作者：狐狸爸爸
--  发布时间：2013/4/22 18:40:00
--  

可以：

 

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

 
--  作者：likui412282
--  发布时间：2013/4/23 11:13:00
--  

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

 

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

 

2、还有，我这个表就20列，要是有复杂的表超过30列或者50列，也要一个一个的罗列吗？有没有办法不需要罗列，所有的列都复制？
--  作者：XYT
--  发布时间：2013/4/23 11:18:00
--  
你要复制所有列，那就可以直接复制表就可以了Syscmd.Table.Copy()
--  作者：likui412282
--  发布时间：2013/4/23 11:26:00
--  

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