各位老师下午好！
以下代码是在窗口中和目录树和表，想单击目录树某层节点时，窗口表中的行按所单击的目录树节点进行筛选，我这段代码提示错误是：“未将对象引用设置到对象的实例。”，请老师指导，谢谢！！
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")
加好友 
发短信
Post By：2019/9/24 16:41:00 [只看该作者]
