主题：另一种通用筛选树 拼接筛选条件 拼接字符串

Dim trv As WinForm.TreeView = e.Sender

Dim nd,nd1 As WinForm.TreeNode

Dim flt,s1 As String

Dim n1,Inum As Integer

nd = trv.SelectedNode

For Each nd1 In nd.allNodes '同步子节点选中状态

    nd1.Checked = nd.Checked

Next

If nd.ParentNode IsNot Nothing Then   '确定父节点选中状态:

    For n1 = nd.ParentNode.level To 0 Step -1  '

        Inum = nd.ParentNode.Nodes.Count '利用muhua老师的

        For Each nd1 In nd.ParentNode.Nodes

            Inum+ = Val(nd1.Checked)

        Next

        nd.ParentNode.Checked = (Inum = 0)

        nd = nd.ParentNode

    Next

End If

For Each NdType  As WinForm.TreeNode In trv.Nodes

    Select Case NdType.Name

        Case "开piao日期"

            Dim Lbs As String() ={"开piao日期","年","月"} '目錄樹級數                     我的想法是 开piao日期 这个是分类节点，可以取掉

            For Each nd  In trv.AllNodes

                If nd.Level > 0 AndAlso nd.ParentNode.Checked Then '如果父节点选中

                    Continue For '跳过此节点,处理下一结点

                End If

                If nd.Checked Then

                    n1=1

                    For Each s1 In nd.FullName.split("\")                  ’这个地方 我的想法是如果选中的分类节点不是日期，就不要执行开piao日期条件的合成了

                        If s1<>"开piao日期" Then                           

                            flt+ =iif(n1 =1,") Or (" ," And ") & Lbs(n1) & " = " & s1   

                            n1+=1

                        End If

                    Next

                End If

            Next

            

        Case "fa piao状态"

        Case "客户名称"

        Case "项目名称"

    End Select

Next

If flt IsNot Nothing Then

    msgbox(flt.Substring(4) & ")")

End If