用列名作为筛选树节点名，怎样做截图那样 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用列名作为筛选树节点名，怎样做截图那样

共有8494人关注过本帖树形打印复制链接主题：用列名作为筛选树节点名，怎样做截图那样

有点蓝

小大 31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106005 积分：539112 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/11/29 21:18:00 [只看该作者]

Filter = "入职日期 <= #" & Date.today.AddYears(-1 * val(e.node.name.Replace("年以下",""))) & "#"

system1977

小大 32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：100 积分：992 威望：0 精华：0 注册：2019/4/2 22:28:00

Post By：2019/11/30 23:18:00 [只看该作者]

打开提示这个:Conversion from string "入职日期 > '2017-11-30'" to type 'Long' is not valid.

表达式错在哪里?

n4.Nodes.Add("1-3","1年以上-3年以下" & "(" & DataTables("表A").Compute("count(_Identify)","入职日期 > '" & Date.today().addYears(-1) & "'" And "入职日期 > '" & Date.today.AddYears(-3) & "'") & "人)")

有点蓝

小大 33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106005 积分：539112 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/1 20:33:00 [只看该作者]

n4.Nodes.Add("1-3","1年以上-3年以下" & "(" & DataTables("表A").Compute("count(_Identify)","入职日期 > '" & Date.today().addYears(-1) & "' And 入职日期 > '" & Date.today.AddYears(-3) & "'") & "人)")

system1977

小大 34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：100 积分：992 威望：0 精华：0 注册：2019/4/2 22:28:00

Post By：2019/12/6 20:50:00 [只看该作者]

帮忙看一下,附件中的6年-9年这一项为什么筛选不出来

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

有点蓝

小大 35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106005 积分：539112 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/6 21:17:00 [只看该作者]

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))) & "#"

End If

system1977

小大 36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：100 积分：992 威望：0 精华：0 注册：2019/4/2 22:28:00

Post By：2019/12/7 23:00:00 [只看该作者]

筛选不正确,1年-5年(含5年)共有4条记录,却只能筛选出3条,工龄为5年的,筛选不出来:

Dim n4 As winform.treeNode = trv.Nodes.add("工龄_年","工龄")

n4.Nodes.Add("1年-5年","1年-5年" & "(" & DataTables("表A").Compute("count(_Identify)","入职日期 <= '" & Date.today.addYears(-1) & "' And 入职日期 >= '" & Date.Today.AddYears(-5) & "'") & "人)")

有点蓝

小大 37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106005 积分：539112 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/12/8 21:14:00 [只看该作者]

filter = "入职日期 <= #" & Date.Today.AddYears(-1 * val(ar(0))) & "#" & "And 入职日期 >= #" & Date.Today.AddYears(-1 * val(ar(1))) & "#"

system1977

小大 38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：100 积分：992 威望：0 精华：0 注册：2019/4/2 22:28:00

Post By：2019/12/8 23:06:00 [只看该作者]

以下是引用有点蓝在2019/12/8 21:14:00的发言：
filter = "入职日期 <= #" & Date.Today.AddYears(-1 * val(ar(0))) & "#" & "And 入职日期 >= #" & Date.Today.AddYears(-1 * val(ar(1))) & "#"

这个测试不行,还是有一行筛选不出来,要等同下面代码的结果:

filter = "工龄_年 >= 1" & " and 工龄_年 <= 5" (这个包含了5年共4条记录,上面的代码却只有3条.)