标题：[求助] 删除表内所有行的按钮代码报错

With Tables("窗口1_Table1")
    For i As Integer = 0 To .Rows.Count -1
        If .Rows.Count > 0 Then
            .Rows(i).Delete()
        End If
    Next
End With

为什么每按一次，只删除一半的行并报错？？？？

With Tables("窗口1_Table1")

   Dim cnt As Integer  = .Rows.Count - 1
    For i As Integer = cnt To 0 Step -1
        If .Rows.Count > 0 Then
            .Rows(i).Delete()
        End If
    Next
End With