我有个筛选窗口,中间表控件列出的是根据条件选中的数据,我想通过下边的按钮删除表控件中筛选出来的所有行,按钮中的代码我是这样写的,但执行后只删除了焦点所在的那一行,并没有把所有行都删除,谁能告诉我是哪里有问题。
此主题相关图片如下: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