老师，展开文化程度的节点点击后还是没有用。
目录树双击事件NodeMouseDoubleClick
If e.node.ParentNode.Name = "应聘信息_部门" OrElse e.node.ParentNode.Name = "个人基本资料_性别" OrElse e.node.ParentNode.Name = "个人基本资料_婚姻状况" OrElse e.node.ParentNode.Name = "个人基本资料_文化程度" Then
End If
下面是窗口代码AfterLoad
Dim tt As WinForm.TreeView = e.Form.Controls("人事档案TreeView1")
Dim nd As WinForm.TreeNode
Dim lst1 As List(of String) = DataTables("人事档案_人事档案Table1").GetUniqueValues("应聘信息_部门 Is Not Null","应聘信息_部门")
nd= tt.Nodes.Add("应聘信息_部门","部门")
For Each Val1 As String In Lst1
nd.Nodes.Add(Val1,Val1)
Next
Dim lst2 As List(of String) = DataTables("人事档案_人事档案Table1").GetUniqueValues("个人基本资料_文化程度 Is Not Null","个人基本资料_文化程度")
Dim nd1 As WinForm.TreeNode
nd1 = tt.Nodes.Add("个人基本资料_文化程度","文化程度")
For Each Val2 As String In Lst2
nd1.Nodes.Add(Val2,Val2)
Next
Dim lst3 As List(of String) = DataTables("人事档案_人事档案Table1").GetUniqueValues("个人基本资料_性别 Is Not Null","个人基本资料_性别")
Dim nd2 As WinForm.TreeNode
nd2 = tt.Nodes.Add("个人基本资料_性别","性别")
For Each Val3 As String In Lst3
nd2.Nodes.Add(Val3,Val3)
Next
Dim lst4 As List(of String) = DataTables("人事档案_人事档案Table1").GetUniqueValues("个人基本资料_婚姻状况 Is Not Null","个人基本资料_婚姻状况")
Dim nd3 As WinForm.TreeNode
nd3 = tt.Nodes.Add("个人基本资料_婚姻状况","婚姻状况")
For Each Val4 As String In Lst4
nd3.Nodes.Add(Val4,Val4)
Next
Dim nd4 As WinForm.TreeNode
nd4 = tt.Nodes.Add("超期合同")
Dim nd5 As WinForm.TreeNode
nd5 = tt.Nodes.Add("完善信息")
加好友 
发短信
Post By：2019/10/24 16:33:00 [只看该作者]
