Foxtable(狐表) → 用户栏目 → 专家坐堂 → 复制一个表中的三个字段的所有行到另外一个表中三个字段


  共有2242人关注过本帖树形打印复制链接

主题：复制一个表中的三个字段的所有行到另外一个表中三个字段
帅哥哟，离线，有人找我吗？
weibu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00 		复制一个表中的三个字段的所有行到另外一个表中三个字段  发帖心情 Post By：2018/12/18 17:19:00 [只看该作者]

老师请问：复制A表中的1,2,3三个字段的所有行到B表中1,2,3;并且如果B表如果行数不够自动增加；
这个代码怎么写
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2018/12/18 17:23:00 [只看该作者]

filler

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/18 17:52:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：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()
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询