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

代码有什么问题？

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