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

Dim r As Row=Tables("表A").Current

Dim Value() As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 1

If e.node.text <> "回聘" Then
    Tables("表B").Filter  = "工号 ='" & r("工号") & "'"

End if

这样试试