[求助两表数据互导 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助两表数据互导

共有2126人关注过本帖树形打印复制链接主题：[求助两表数据互导

积水成渊

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：348 积分：2805 威望：0 精华：0 注册：2016/8/24 10:39:00

[求助两表数据互导 发帖心情

Post By：2018/7/2 15:12:00 [只看该作者]

有两张完全相同的表A和B，现在需要将A表的数据导入到B表中，请教下那种导入模式会效率些。且不会出错：以下是我写的代码，但是不效率，求一个效率点方法

Dim t As Table = Tables("A")

Dim t1 As Table = Tables("B")

For Each r As DataRow In DataTables("A").Select("核算月份 = '201805'")

Dim r1 As Row = Tables("B").addnew

'Dim s As String

'Dim s1 As String

For Each c As Col In Tables("A").Cols

t1.Current(c.name ) = r(c.name )

[此贴子已经被作者于2018/7/2 15:13:31编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/2 15:43:00 [只看该作者]

参考

主题：[求助两表数据互导