如何快速把一个表的数据更新到另一个表上 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何快速把一个表的数据更新到另一个表上

共有2113人关注过本帖树形打印复制链接主题：如何快速把一个表的数据更新到另一个表上

ljh29206

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

等级：六尾狐帖子：1368 积分：12195 威望：0 精华：0 注册：2012/3/5 11:32:00

如何快速把一个表的数据更新到另一个表上 发帖心情

Post By：2016/3/28 9:56:00 [显示全部帖子]

DataTables("AttCard").LoadFilter = " CrdDate > '" & Date.Today.AddMonths(-1) & "'"

DataTables("AttCard").Load

DataTables("fstbfc_AttRecord").LoadFilter = " CrdDate > '" & Date.Today.AddMonths(-1) & "'"

DataTables("fstbfc_AttRecord").Load

For Each dr As Row In Tables("fstbfc_AttRecord").Rows

dr.Delete

For Each dr As Row In Tables("AttCard").Rows

Dim dradd As Row = Tables("fstbfc_AttRecord").Rows.AddNew

For Each drcol As Col In Tables("AttCard").Cols

dradd(drcol.Name) =dr(drcol.Name)

代码如上，把一个数据库的表更新到另一个数据库上，表的结构一样

行数每次都有20000行

如果按照上边的代码走，很慢.....

有没更好的方法？

ljh29206

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

等级：六尾狐帖子：1368 积分：12195 威望：0 精华：0 注册：2012/3/5 11:32:00

Post By：2016/3/28 10:17:00 [显示全部帖子]

DataTables("fstbfc_AttRecord").LoadFilter = " CrdDate > '" & Date.Today.AddMonths(-1) & "'"

DataTables("fstbfc_AttRecord").Load

For Each dr As Row In Tables("fstbfc_AttRecord").Rows

dr.Delete

除了这个方法有没更快的对

DataTables("fstbfc_AttRecord").LoadFilter = " CrdDate > '" & Date.Today.AddMonths(-1) & "'"

DataTables("fstbfc_AttRecord").Load

的加载行全部清除？

主题：如何快速把 一个表的数据 更新到 另一个表上