以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  复制一个表中的三个字段的所有行到另外一个表中三个字段  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128940)
--  作者：weibu
--  发布时间：2018/12/18 17:19:00
--  复制一个表中的三个字段的所有行到另外一个表中三个字段
老师请问：复制A表中的1,2,3三个字段的所有行到B表中1,2,3;并且如果B表如果行数不够自动增加；
这个代码怎么写
--  作者：y2287958
--  发布时间：2018/12/18 17:23:00
--  
filler
--  作者：有点甜
--  发布时间：2018/12/18 17:52:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0680.htm

 

http://www.foxtable.com/webhelp/scr/1533.htm

 
--  作者：weibu
--  发布时间：2018/12/19 9:26:00
--  
感谢老师，根据老师的指导，我测试中效率最高的填充代码逻辑如下：
With DataTables("库龄")
    .DataRows.Clear() \'清除所有行
End With
Dim f As New Filler
f.SourceTable = DataTables("商品信息") \'指定数据来源
f.SourceCols = "商品编码,商品条码,商品名称" \'指定数据来源列
f.DataTable = DataTables("库龄") \'指定数据接收表
f.DataCols = "商品编码,商品条码,商品名称" \'指定数据接收列
f.ExcludeExistValue = True
f.Distinct = False
f.Append = False
f.Fill() \'填充数据
DataTables("库龄").Save()