簡單的手誤,要學會判斷啊:
Dim r1 As Row = Tables("产品").Current
Dim r2 AS Row = Tables("订单").AddNew
r2(“订购日期") = Date.Todayr2("订单编号") = r1("订单编号")