主题：求从一个表复制（大量）全部数据到另个表，那种写法执行速度快

SystemReady = False
Try
For Each d As Row In Tables("临时订单").Rows

Dim dr As DataRow =DataTables("订单").AddNew()
  dr("产品") =d("产品")
  dr("数量") =d("数量")
Next

DataTables("订单").save
追加数据代码
Catch ex As Exception
    MessageBox.Show("追加数据失败")
End Try
SystemReady = True

哪里错了，好久不反应

谢谢