Dim trv4 As WinForm.TreeView = e.Form.Controls("TreeView4")
trv4.BuildTree(dt1,"年|月|车牌号码","[分类] = '临时停车'","年 DESC,月 DESC")
'trv4.Nodes.Insert("加载临时停车数据",0)
Dim node1 As WinForm.TreeNode = trv1.Nodes.Add("临时停车")
For i As Integer = trv4.Nodes.Count - 1 To 0 Step -1
Dim nn As WinForm.TreeNode = trv4.Nodes(i)
trv4.Nodes.RemoveAt(i)
node1.basenode.Nodes.Add(nn.basenode)
Next
刷新目录树、查找按钮需要判断 一下勾选的节点是哪一个分类的,然后对应处理那一个分类的条件