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
[此贴子已经被作者于2018/6/26 9:16:45编辑过]