老师， 不知道 筛选为何不能实现？
下面是自定义窗口全局click事件，全部的筛选 失效 不知道为什么呢？
Dim trv As WinForm.TreeView=e.Sender
Dim nods As WinForm.TreeNode=trv.SelectedNode
If nods.Name = "全部" Then
If nods.Checked = True Then
For Each nd In trv.AllNodes
If nd.Name <> "全部" Then
nd.Checked = False
End If
Next
MessageBox.Show(nods.Checked )，这块弹窗是True
tb.Table.Filter =""
Return True
Else
For Each nd In trv.AllNodes
nd.Checked = False
Next
tb.Table.Filter = "1=2"
End If
trv.CollapseAll
' Return Nothing
[此贴子已经被作者于2018/5/20 22:28:14编辑过]
加好友 
发短信
Post By：2018/5/20 22:27:00 [只看该作者]
