新增的一般就是当前行。
Dim r1 As Row = Tables("商品").Currentdim r2 as row = Tables("订单").AddNewr2("xxx") = r1("xxx")r2("yyy") = r1("yyy")