主题：目录树双击不能筛选 请教！

WL  为物料表

LB 为物料表内类别字段

已形成目录树如图

双击目录树 但不能执行筛选

 

请老师帮我看看问题出在那里

------------------

目录树的NodeMouseDoubleClick事件代码：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim key As String = e.Node.Name
Dim ids As String
If key = "全部" Then
    Tables("WL").Filter = ""
Else
    For Each nd As WinForm.TreeNode In trv.AllNodes
        Dim pd As WinForm.TreeNode = nd
        Do
            If pd.Name = key Then
                If ids > "" Then
                    ids= ids &  ","
                End If
                ids = ids & "'" & nd.name & "'"
                Exit Do
            Else
                pd = pd.ParentNode
                If pd Is Nothing Then
                    Exit Do
                End If
            End If
        Loop
    Next
    Tables("WL").Filter = "LB In (" & ids & ")"
End If

------------------

 

此主题相关图片如下：180626.jpg

加入代码 msgbox(ids) 看弹出什么。

 

如果自己不会调试，上传具体项目。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:newpoint.rar

老师这是项目文件 帮看一下

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim key As String = e.Node.Name
Dim ids As String
If key = "全部" Then
    e.Form.controls("Table1").Table.Filter = ""
Else
    For Each nd As WinForm.TreeNode In trv.AllNodes
        Dim pd As WinForm.TreeNode = nd
        Do
            If pd.Name = key Then
                If ids > "" Then
                    ids= ids &  ","
                End If
                ids = ids & "'" & nd.name & "'"
                Exit Do
            Else
                pd = pd.ParentNode
                If pd Is Nothing Then
                    Exit Do
                End If
            End If
        Loop
    Next
    e.Form.controls("Table1").Table.Filter = "LB In (" & ids & ")"
End If

老师！ 谢谢！ 

 

----

e.Form.controls("Table1").Table.Filter = ""