以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助两表数据互导  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121246)
--  作者：积水成渊
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：2018/7/2 15:43:00
--  

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=120867&skin=0

 

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