单击节点后执行：（筛选数据表）
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If e.Node.Name = "全部" Then
Tables("人员信息").Filter = ""
Else
Tables("人员信息").Filter = "序列编号 Like '" & e.Node.Name & "%'"
End If
选定节点前执行：（自动展开节点至2级）
systemready = False
e.Sender.StopRedraw
Dim pnd As object
If e.Node.Level = 0 Then
pnd = e.Sender
Else
pnd = e.Node
End If
pnd.CollapseAll
e.Node.Expand
e.Sender.ResumeRedraw
Systemready = True
展开节点后执行：（每一级节点图标不同）
Dim tr As WinForm.TreeView
tr = Forms("单位序列").Controls("TreeView1")
For Each nd As WinForm.TreeNode In tr.AllNodes
If nd.Level = 0 Then
nd.Ic
Else If nd.level = 1 Then
nd.Ic
Else If nd.level = 2 Then
nd.Ic
End If
Next
改变节点复选框后执行：（自动选取下一级节点）
Functions.Execute("SetNodesCheck", e.Node,e.Node.Checked)
内部函数：
AddChildren函数
Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
For Each dr As DataRow In dt.Select("","序列编号")
Dim km As String = dr("序列编号")
If km.StartsWith(nd.name) AndAlso km.Length = nd.Name.Length + 2 Then
Dim cd As Winform.TreeNode = nd.Nodes.Add(km,dr("单位名称"))
Functions.Execute("AddChildren",cd,dt)
End If
Next
SetNodesCheck函数
Dim n As WinForm.TreeNode = args(0)
Dim checked As Boolean = args(1)
For Each n2 As WinForm.TreeNode In n.Nodes
n2.Checked = checked
If n2.Nodes.Count > 0 Then
Functions.Execute("SetNodesCheck", n2,checked )
End If
Next
能帮我看看上面的事件和代码能否整合一下。我点击节点可以筛选出我需要的表数据。前面我加了复选框，现在可以把前面的复选框自动全选，可是不能筛选表数据。还需要手动点击才行。
加好友 
发短信
Post By：2015/10/28 13:35:00 [只看该作者]
此主题相关图片如下：无标题.jpg
