1、
Ygdd.Nodes.Insert("全部","全部 (" & Tables("员工信息").Compute("Sum(人数)") & "人)", 0)
2、
Dim Ygxx As WinForm.TreeView = e.Form.Controls("TreeView1")
Ygxx.StopRedraw '暂停绘制目录树
Ygxx.Nodes.Add("全部")
n = Ygxx.Nodes.Add("岗类部门")
For Each s1 As String In DataTables("员工信息").GetValues("岗位类别","","岗类编码")
Dim c1 = DataTables("员工信息").Compute("Count(_Identify)", "岗位类别='" & s1 & "'")
Dim n1 As WinForm.TreeNode = n.Nodes.Add(s1, s1 & " (" & c1 & "人)")
For Each s2 As String In DataTables("员工信息").GetValues("工作部门","岗位类别='" & s1 & "'","部门编码")
Dim c2 = DataTables("员工信息").Compute("Count(_Identify)", "工作部门='" & s2 & "' and 岗位类别='" & s1 & "'")
Dim n2 As WinForm.TreeNode = n1.Nodes.Add(s2, s2 & " (" & c2 & "人)")
Next
Next
3、先清除再添加,如
Dim Ygxx As WinForm.TreeView = e.Form.Controls("TreeView1")
ygxx.Nodes.Clear