关于Treeview分节点筛选的问题

xxxzyxxx

这次应该是查询的设置问题吧。请各位帮忙看看。

先上附件：

想通过treeview做个分类管理，但是存在重复数据做为不同分类的子节点。最后居然没按分类筛选，搞晕了。请大家帮忙看看

xxxzyxxx

以下是我的查询语句：
Private Sub Treeview_NodeClick(ByVal Node As Object)

    Dim str As String

    If Node.Text = "工程资料" Then
        str = ""

    ElseIf Node.Key Like "2nd*" Then
        str = "[项目名称]='" & Node.Text & "'"

    ElseIf Node.Key Like "3rd*" Then
        str = "[资料名称]='" & Node.Text & "'"

    Else
        str = "[单位名称]='" & Node.Text & "'"
    End If

    Me.单位N子窗体.Form.FilterOn = True
    Me.单位N子窗体.Form.Filter = str
End Sub

运行后，在点击[资料名称]节点时，筛选不正常，点击每一个项目下的相同资料名称都显示记录。其他节点筛选正常
重发一遍附件:


请各位DX指教

aslxt

...
Me.单位N子窗体.Form.FilterOn = True
Me.单位N子窗体.Form.Filter = str
...

仅从代码看，顺序不对，应该是：
Me.单位N子窗体.Form.Filter = str
Me.单位N子窗体.Form.FilterOn = True

aslxt

仔细看了实例，发现你的问题是：筛选为单一条件
项目名称的时候，需要单一条件
资料名称的时候，应该是双条件
单位的时候，应该是三个条件

aslxt

Private Sub Treeview_NodeClick(ByVal Node As Object)

    Dim str As String

    If Node.Text = "工程资料" Then
        str = ""

    ElseIf Node.Key Like "2nd*" Then
        str = "[项目名称]='" & Node.Text & "'"

    ElseIf Node.Key Like "3rd*" Then
        str = "[资料名称]='" & Node.Text & "' and [项目名称]='" & Node.Parent & "'"

    Else
        str = "[单位名称]='" & Node.Text & "' and [资料名称]='" & Node.Parent & "' and [项目名称]='" & Node.Parent.Parent & "'"
    End If
    Me.文件N子窗体.Form.Filter = str
    Me.文件N子窗体.Form.FilterOn = True
End Sub

xxxzyxxx

明白了，谢谢aslxt。
做这个东西都是从网上抄的代码，自己并没有理解透彻。
但是经过做这个东西，一次一次的修改也慢慢的学到了一些东西。
另外想问一下，Me.form.filter=str和me.form.filteron=true这两句顺序有什么区别吗？我运行之后感觉好像也一样啊

aslxt

xxxzyxxx 发表于 2012-4-25 14:33
明白了，谢谢aslxt。
做这个东西都是从网上抄的代码，自己并没有理解透彻。
但是经过做这个东西，一次一次 ...

问题不在这里，就不用啦
我理解是先设置筛选的条件，然后应用筛选