Dim r As Row=Tables("表A").Current
Dim Value() As StringValue = e.Node.FullPath.Split("\")Select Case e.Node.Level Case 1
If e.node.text <> "回聘" Then Tables("表B").Filter = "工号 ='" & r("工号") & "'"
End if
这样试试