谢谢“蓝”老师！
如图所示，我想：在单击左边目录树节点（如：巴河）时，右边表格自动筛选“HLMC”等于节点名称的行。我将下面代码写在目录树的“NodeMouseClick”事件中的，可总是提示错误，还请老师指导，谢谢！
此主题相关图片如下：1.png
目录树“NodeMouseClick”的代码为：
Dim flt As String
'For Each nd As WinForm.TreeNode In trv.AllNodes
Dim nd As WinForm.TreeNode
If e.Node.Text <> "" Then
Select Case e.Node.Level
Case 0
flt = flt & "( HLMC = '" & nd.Text & "')"
Case 1
flt = flt & "( HLMC = '" & nd.ParentNode.Text & "' And DMMC = '" & nd.Text & "')"
End Select
End If
'Next
Tables("监测登记_witable").Filter = flt
Tables("监测登记_witable").SetColVisibleWidth("YEAR|60|MONTH|40|HLMC|50|DMMC|120|XZQY|50|ZHPJLB|80|SNDB|60")
[此贴子已经被作者于2019/9/24 22:42:30编辑过]
加好友 
发短信
Post By：2019/9/24 16:41:00 [显示全部帖子]
