专家坐堂-求临时表的数据保存数据到不是临时表的订单的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求临时表的数据保存数据到不是临时表的订单的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84702)

--  作者：limit_1982
--  发布时间：2016/5/8 10:22:00
--  求临时表的数据保存数据到不是临时表的订单的问题

如果是1000行数据就很慢很慢.... 改哪里变快，谢谢

For Each d As DataRow In DataTables("临时订单").DataRows
    Dim dr As DataRow = DataTables("订单").AddNew

    dr("产品")=d("产品")
    dr("数量")=d("数量")
    dr.DataTable.Save
Next

DataTables("临时订单").DeleteFor("")

--  作者：大红袍
--  发布时间：2016/5/8 10:40:00
--

代码有什么问题？

SystemReady = false
For Each d As DataRow In DataTables("临时订单").DataRows
    Dim dr As DataRow = DataTables("订单").AddNew
    dr("产品")=d("产品")
    dr("数量")=d("数量")
Next

DataTables("订单").Save
DataTables("临时订单").DeleteFor("")
SystemReady = true

--  作者：limit_1982
--  发布时间：2016/5/8 10:49:00
--

速度快了300倍，呵呵。。谢谢

大红袍