主题：[求助]多个根节点筛选树

请教老师，我的表里有（项目名称、三级类别、存储日期）我按照帮助中，将“类别一、类别二、类别三”进行内容筛选（此需求已经实现），但同时需要再增加一个按照“存储日期”分类的“项目名称”根节点，和现在的类别的节点分开，试了几遍一直都无法实现，请叫老师指点，谢谢！

实例上传总是失败，只能上传几张图片请老师看看。

 

现有的：

NodeMouseClick：

Dim Filter As String

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

If e.Node.Text <> "显示所有行" Then

    Select Case e.Node.Level

        Case 0

            Filter = "[类别一] = '" & dr("类别一") & "'"

        Case 1

            Filter = "[类别一] = '" & dr("类别一") & "' And [类别二] = '" & dr("类别二") & "'"

        Case 2

            Filter = "[类别一] = '" & dr("类别一") & "' And [类别二] = '" & dr("类别二") & "' And [类别三] = '" & dr("类别三") & "'"        

    End Select    

End If

Tables("项目表").Filter = Filter

 

 

此主题相关图片如下：微信截图_20170420142328.jpg


此主题相关图片如下：微信截图_20170420142418.jpg


此主题相关图片如下：微信截图_20170420142554.jpg

此主题相关图片如下：微信截图_20170420152323.jpg

就想实现上图的功能，类别类筛选现在已经实现了，但同时进行项目名称的筛选，做了几次还都不行。

我是刚接触者，实现这个功能需求也就差不多了，能不能麻烦老师给我已给具体的方法，谢谢了！

 

现在的：

AfterLoad：

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("摄录交接表", "类别一|类别二|类别三")
trv.Nodes.Insert("显示所有行",0)

 

NodeMouseClick:

 

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[类别一] = '" & dr("类别一") & "'"
        Case 1
            Filter = "[类别一] = '" & dr("类别一") & "' And [类别二] = '" & dr("类别二") & "'"
        Case 2
            Filter = "[类别一] = '" & dr("类别一") & "' And [类别二] = '" & dr("类别二") & "' And [类别三] = '" & dr("类别三") & "'"       
    End Select
    Select Case e.Node.Level
End If
Tables("项目表").Filter = Filter

从一开始就上传，可一直上传后就没反应了！我也不知道怎么回事！您有Q吗？明Q和您联系。我的Q：46355668