[求助]树控件的单击事件错在那里?

好学

树控件的数据来源有两个(或多个),在处理单击事件中不知是那里出错,其中有一组不能筛选?

andymark

Private Sub TreeView_NodeClick(ByVal Node As Object)
    Dim str As String
    '定义要筛选的名称

    Select Case 车间.Caption
    Case "车间"

        str = "[车间名称]='" & Node.Text & "'"

    Case "部门"
        If Node.Key = "爷" Or Node.Key Like "父*" Or Node.Key Like "子*" Then
            str = ""
        Else
            str = "[部门名称]='" & Node.Text & "'And [车间名称]='" & Node.Parent & "'"
        End If

    End Select


    Me.资料浏览_子窗体.Form.FilterOn = True
    Me.资料浏览_子窗体.Form.Filter = str

End Sub

好学

andymark版主,先谢谢!但我不明白那如果我几个来源,那又如何处理呢?[em04][em04]

好学

其实我做过一个类似的方法,问题就解决了,但三个以上来源我就没办法了?

Private Sub TreeView_NodeClick(ByVal Node As Object)
    Dim str As String
'定义要筛选的名称
    If Node.Key = "爷" Or Node.Key Like "父*" Or Node.Key Like "子*" Then
       str = ""
    If Me![选择] = 1 Or Me![选择] = 2 Then
       str = "[部门名称]='" & Node.text & "'"
Else
       str = "[车间名称]='" & Node.text & "'"
   End If
       Me.资料浏览_子窗体.Form.FilterOn = True
       Me.资料浏览_子窗体.Form.Filter = str

  End If
End Sub


<请三个以上来源怎样处理呢!>

[em06][em04]

andymark

  原理一样的,可以用选项控件来处理

好学

我由于马上就要做四个条件的(我是用选项控件的),所以我才想出一楼的办法,如按您的方法,第三,第四个条件放在那里呢?我想不通!

andymark

    用  Select Case 可以支持很多项的呀
     

好学

我想通了,在下一个条件中加:

If Node.Key = "爷" Or Node.Key Like "父*" Or Node.Key Like "子*" Then
            str = ""
        Else
            str = "[部门名称]='" & Node.Text & "'And [车间名称]='" & Node.Parent & "'"
        End If

谢谢andymark!
[em01][em01][em01]

[此贴子已经被作者于2006-8-7 23:49:44编辑过]