主题：运行代码错误问题

e.Cancel = True

Dim r As Row = Tables(vars("上个表")).Current

If r IsNot Nothing Then

    

    r("收据fa piao号") = e.Row("收据fa piao号")

End If

双击时出现如下错误提示：