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

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

此主题相关图片如下：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

这样会不会删除的不是我筛选出来的数据行啊，因为TABLE才是能看到的表嘛？再说用这句语句FILTER该怎么写呢，如何FILTER我已经筛选出来的这些行呢？