主题：插入行，自动复制上一行的相关列代码问题

有点色老师，我把代码放在了表属性DataRowAdding事件中，代码如下：

Dim t As Table = Tables("返利收缴明细表")

Dim cr As Row = t.rows(t.Position-1)

Dim nr As Row = t.InsertNew

nr("收据fa piao号") = cr("收据fa piao号")

nr("数量") = cr("数量")

但一运行，项目就强制退出了，是哪出问题了呢。