主题：[求助]多条件加载出不来想要的结果

如图，如何把节点下面所包的条目都显示出来？

我现在的代码如下

Dim filter As String
If e.Node.Name = "显示所有" Then
    filter = ""
Else
    If e.Node.Name.Length = 5 Then
        If e.Node.Nodes.Count > 0 Then
            Dim ss As String
            ss = "'" & e.Node.Nodes(0).Name & "'"
            For i As Integer = 1 To e.Node.Nodes.Count - 1
                ss = ss & ",'" & e.Node.Nodes(0).Name & "'"
            Next
            filter = "[产品名称] In (" & ss & ")"
        End If
    Else
        filter = "产品名称 = '" & e.Node.Name & "'"
    End If
End If
Tables("料号对BOM_Table1").Filter = filter

正常希望达到的是，点节点时，节点下有两条数据的，就出来这两条数据的东西，但现在只能出来一条，求方案。

此主题相关图片如下：qq截图20160928162227.png


此主题相关图片如下：qq截图20160928162259.png