以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  内部表复制到Access外部表特别慢能否优化  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186186)

--  作者:237756360
--  发布时间:2023/4/11 16:17:00
--  内部表复制到Access外部表特别慢能否优化
内部表复制到Access外部表特别慢能否优化

\'清空数据
DataTables("外源数据计算").SQLDeleteFor("")
DataTables("外源数据计算").RemoveFor("")

\'复制数据
For Each dr1 As DataRow In DataTables("数据组态").Select("")
    Dim dr2 As DataRow = DataTables("外源数据计算").AddNew()
    For Each dc As DataCol In DataTables("数据组态").DataCols
        dr2(dc.Name) = dr1(dc.name)
    Next
Next

--  作者:有点蓝
--  发布时间:2023/4/11 16:19:00
--  
无法优化了
--  作者:237756360
--  发布时间:2023/4/11 19:07:00
--  
这么写快多了

图片点击可在新窗口打开查看