主题：[求助]关于筛选的

If Tables("筛选_Table1").Rows.Count > 0 Then
    Dim dr As DataRow = Tables("筛选_Table1").Current.DataRow
    Dim wz As Integer = Tables("表A").FindRow(dr)
    If wz >=0 Then
        Tables("表A").Position = wz
    End If
End If

明确是哪个表，并且这个表有数据。