Dim s As String = e.Form.Controls("Chebox_sxs").Text
Dim tb1 As Table = Tables(e.Form.Name & "_Table1")
Dim dt As DataTable = lsbdt
Dim Colstr() As String
Dim qts As String() = {"'","#",""}
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String = ""
Dim nd,pd As WinForm.TreeNode
'Dim pd As WinForm.TreeNode
Dim notchecked As Integer = 0
Colstr = s.split("|")
If e.Node.Name = "显示所有项目" Then
If e.Node.Checked = True Then
For Each nd In trv.AllNodes
If nd.Name <> "显示所有项目" Then
nd.Checked = False
End If
Next
Else
For Each nd In trv.AllNodes
nd.Checked = False
Next
End If
'trv.CollapseAll
'Return ‘去掉
Else
trv.AllNodes(0).Checked = False
End If
加好友 
发短信
Post By：2019/5/10 20:56:00 [显示全部帖子]
