老师好
Dim str() As String = {"应聘信息_部门","个人基本资料_性别"} '定义筛选树中显示的列名
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.Nodes.Insert("显示所有行",0)
For Each c As String In str
Dim n As WinForm.TreeNode = trv.Nodes.Add(c,c.split("_")(1))
老师，上面代码把列名称改变后目录树中的代码就找到了。下面代码老师帮忙修改谢谢了。
Dim Filter As String
Dim d1 As String
Select Case e.Node.Level
Case 1
If e.Node.ParentNode.Text = "出生日期" Then
Dim y As Date = new Date(cint(e.Node.Text.Split("(")(0)),1,1) '取日期某部分?
Filter = "个人基本资料_出生年月 >= #" & y & "# and 个人基本资料_出生年月 < #" & y.AddYears(1) & "#"
ElseIf e.Node.ParentNode.Text = "基本工资" Then
If e.node.text.Contains("以下") Then
Filter = "应聘信息_期望薪资 <= " & e.node.name.Replace("以下","")
ElseIf e.node.text.Contains("以上") Then
Filter = "应聘信息_期望薪资 > " & e.node.name.Replace("以上","")
Else
Dim ar() As String = e.node.name.split("-")
Filter = "应聘信息_期望薪资 >= " & ar(0) & " and 应聘信息_期望薪资 <= " & ar(1)
End If
Else
Filter = e.Node.ParentNode.Text & " = '" & e.Node.Text.Split("(")(0) & "'"
If e.Node.parentNode.text = "工龄" Then
If e.Node.Text.Contains("年以下") Then
filter = "应聘信息_入职时间 > #" & Date.Today.AddYears(-1 * val(e.Node.Name.Replace("年以下",""))) & "#"
ElseIf e.Node.Text.Contains("年以上") Then
filter = "应聘信息_入职时间 < #" & Date.Today.AddYears(-1 * val(e.Node.Name.Replace("年以上",""))) & "#"
Else
Dim ar() As String = e.Node.Name.replace("年","").Split("-")
filter = "应聘信息_入职时间 <= #" & Date.Today.AddYears(-1 * val(ar(0))) & "#" & "And 应聘信息_入职时间 >= #" & Date.Today.AddYears(-1 * val(ar(1))-1) & "#"
End If
End If
End If
End Select
Tables("人事档案_人事档案Table1").Filter = Filter
加好友 
发短信
Post By：2019/12/19 13:30:00 [只看该作者]
此主题相关图片如下：目录树.png