Dim r1 As Row = e.Table.CurrentDim r2 AS Row = Tables("表B").AddNew()r2("型号") = r1("型号")r2("规格") = r1("规格")r2("单价") = r1("销售价")