主题：求临时表的数据保存数据到不是临时表的订单的问题

如果是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("")