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


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

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

帅哥哟,离线,有人找我吗?
积水成渊
  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 )
Next
Next
[此贴子已经被作者于2018/7/2 15:13:31编辑过]

 回到顶部