1、
Dim rs As List(Of Row)= New List(Of Row)(Tables("表A").Rows())
不过Tables.Rows返回的类型是RowCollection 也是一种集合 可以直接for each进行遍历,没有必要转成List
2、删除集合一般都反过来删
For i As Integer = Tables("表A").Rows.Count - 1 To 0 Step -1 With Tables("表A").Rows(i) If .Checked = False Then .delete End If End WithNext