这样写
For i As Integer = Tables("表A").GetCheckedRows.count - 1 To 0 step -1 Tables("表A").GetCheckedRows(i).removeNext