我在论坛找到一串代码特别好用，但是能不能让这串代码指定表呢？就是删除指定表的符合条件的行

Dim str As New List (Of String)

Dim id As String

    If str.Contains(r("上级部门")&r("单位名称")&r("姓名")) =False Then

        str.Add(r("上级部门")&r("单位名称")&r("姓名"))

        id + = r("_Identify") & ","

    End If

Next

CurrentTable.Filter = "_Identify not In (" & id & ")"

CurrentTable.Sort="上级部门,单位名称,姓名"

 For i As Integer = CurrentTable.Rows.Count - 1 To 0 Step -1 

CurrentTable.Rows(i).Delete 

Next 

CurrentTable.Filter = ""

我把蓝色部分改成For Each r As Row In Tables("表A").Rows 提示我tables是一个类型，不能用作表达式