主题：求教大神，把窗口当前临时表保存在订单表的问题

     Dim dr As DataRow = DataTables("订单").AddNew
     For Each dc As Col In CurrentTable.Cols
         dr(dc.Name) = e.Row(dc.Name)
     Next

谢谢指正

可以了

For Each drr As Row In CurrentTable.Rows
    Dim dr1 As DataRow = DataTables("订单").AddNew
    dr1("产品")=drr("产品")
    dr1("数量")=drr("数量")
    dr1.Save()
Next