这样就行了:
Select Case e.Node.Level Case 0 Tables("客户管理").Filter = "" Case 1 Tables("客户管理").Filter ="[" & e.Node.ParentNode.Text & "] = '" & e.Node.Text & "'"End Select