……Else
For Each nd In e.node.Nodes '清除子节点选中状态
nd.Checked = False
Next
If e.node.ParentNode IsNot Nothing Then '去掉父节点选中状态
e.node.ParentNode.Checked = False
End If
For Each nd In trv.AllNodes
If nd.Checked = True Then
If Filter > "" Then
Filter = Filter & " Or " '注意用or而不是And
End If
Select Case nd.Level
Case 0 '注意下面的条件都要用括号括起来
Dim T1 As String = nd.Text
Filter = Filter & "([总类] = '" & T1 & "')"
Case 1
Dim T1 As String = nd.Text
Dim T2 As String = nd.ParentNode.Text
Filter = Filter & "( 总类 = '" & T2 & "' And 分类 = '" & T1 & "')"
End Select
Else
Select Case e.Node.Level
Case 0
If nd.Nodes.Count > 0
For Each nd1 In nd.AllNodes
nd1.Checked = False
Next
End If
End Select
End If
Next
End If