主题：删除报错,请帮忙看下是什么原因呢?

With Tables("订单明细表")

    For i As Integer = .BottomRow To .TopRow Step -1

        Dim r1 As Row = .Rows(i)

        Dim r2 As Row = Tables("删除明细记录").AddNew

        For Each c As Col In .Cols

            r2(c.name) = r1(c.name)

        Next

        r1.Delete()

    Next

End With