BeforeAddDataRow事件
vars("上一行") = Tables("表A").current
DataRowAdded事件
dim pr as row = vars("上一行")e.datarow("第一列") = pr("第一列")e.datarow("第二列") = pr("第二列")