主题：[求助]关于筛选的问题！ A表筛选根据B表来筛选的~~~~【例子已上传，商业版的】

双击事件中：

Dim s As String
For Each r As Row In Tables("表A").Rows
    Dim drs As List(Of DataRow)
    drs = DataTables("表B").Select("[工号] = '" & r("工号") & "' ")
    If drs.count > 1
        For Each dr As DataRow In drs
            s = s & "'" & dr("工号") & "',"
            Exit For
        Next
    End If
Next
Tables("表A").Filter = "工号 in (" & s.trim(",") & ") "