主题：如何通过按钮删除窗口中表控件中所有行

我有个筛选窗口，中间表控件列出的是根据条件选中的数据，我想通过下边的按钮删除表控件中筛选出来的所有行，按钮中的代码我是这样写的，但执行后只删除了焦点所在的那一行，并没有把所有行都删除，谁能告诉我是哪里有问题。

此主题相关图片如下：jt.png

Dim tr As WinForm.TreeView = Forms("窗口").Controls("TreeView1")
Dim Result As DialogResult
Result = MessageBox.Show("您确定要删除所有筛选出的记录吗?", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.warning)
If Result = DialogResult.Yes Then
    With Tables("名册")
        For i As Integer = .BottomPosition To .TopPosition Step -1
            .Rows(i).Delete()
        Next
    End With
Else
    e.form.close()
End If