[求助]目录树 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，下面代码怎样简化。

ElseIf e.node.text = "小学"

Tables("人事档案_人事档案Table1").DataTable.LoadFilter = "[个人基本资料_文化程度] = '小学'"

Tables("人事档案_人事档案Table1").DataTable.Load

ElseIf e.node.text = "中学"

Tables("人事档案_人事档案Table1").DataTable.LoadFilter = "[个人基本资料_文化程度] = '中学'"

Tables("人事档案_人事档案Table1").DataTable.Load

ElseIf e.node.text = "高中"

Tables("人事档案_人事档案Table1").DataTable.LoadFilter = "[个人基本资料_文化程度] = '高中'"

Tables("人事档案_人事档案Table1").DataTable.Load

ElseIf e.node.text = "大学"

Tables("人事档案_人事档案Table1").DataTable.LoadFilter = "[个人基本资料_文化程度] = '大学'"

Tables("人事档案_人事档案Table1").DataTable.Load

ElseIf e.node.text = "硕士"

Tables("人事档案_人事档案Table1").DataTable.LoadFilter = "[个人基本资料_文化程度] = '硕士'"

Tables("人事档案_人事档案Table1").DataTable.Load

ElseIf e.node.text = "博士"

Tables("人事档案_人事档案Table1").DataTable.LoadFilter = "[个人基本资料_文化程度] = '博士'"

Tables("人事档案_人事档案Table1").DataTable.Load

ElseIf e.node.text = "教授"

Tables("人事档案_人事档案Table1").DataTable.LoadFilter = "[个人基本资料_文化程度] = '教授'"

Tables("人事档案_人事档案Table1").DataTable.Load

[此贴子已经被作者于2019/10/23 9:08:44编辑过]

老师好，人事档案窗口目录树控件的代码修改不好。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试2.rar

谢谢老师帮我修改，还有问题点击部分目录树节点没有反应。

此主题相关图片如下：目录树.png

老师，有点看不懂，另外两个节点有没有对点击事件处理是可以运行的。

此主题相关图片如下：目录树.png

.NET Framework 版本：4.0.30319.1026

Foxtable 版本：2019.10.26.1

错误所在事件：窗口,人事档案,人事档案TreeView1,NodeMouseDoubleClick

详细错误信息：

Object reference not set to an instance of an object.

老师，上面的问题是把代码位置摆错了，现在好了。文化程度这个节点双击还是没有用。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试3.rar

老师谢谢你了，看不出啊！

老师，真的看不出来。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试4.rar

[此贴子已经被作者于2019/10/25 13:11:57编辑过]

老师，展开文化程度的节点点击后还是没有用。

目录树双击事件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)

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)

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)

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)

Dim nd4 As WinForm.TreeNode

nd4 = tt.Nodes.Add("超期合同")

Dim nd5 As WinForm.TreeNode

nd5 = tt.Nodes.Add("完善信息")

老师，还是不行。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:合同.rar

主题：[求助]目录树