主题：如何写代码实现所需要？

此主题相关图片如下：888.jpg

比如：点显示所有客户，在客户管理表中显示所有客户；点击客户分类下的工程机械，显示工程机械类的所有客户；点击客户来源下的广告网络媒体显示相关所有客户。

Dim Value()As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Tables("客户管理").Filter = " & Value(0) & "'"
    Case 1
        Tables("客户管理").Filter ="[客户分类] = '" & Value(1) & "'"
    Case 2
        Tables("客户管理").Filter ="[客户来源] = '" & Value(2) & "'"

   Case 3
        Tables("客户管理").Filter ="[客户状态] = '" & Value(2) & "'"

   Case 4
        Tables("客户管理").Filter ="[客户区域] = '" & Value(2) & "'"
End Select

以上代码实现不了，不知道如何写？求助各位了，谢谢！