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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于加载树筛选问题

共有3346人关注过本帖树形打印复制链接主题：[求助]关于加载树筛选问题

qq419863108

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

加好友

发短信

等级：婴狐帖子：29 积分：278 威望：0 精华：0 注册：2017/5/14 18:41:00

[求助]关于加载树筛选问题 发帖心情

Post By：2017/6/10 17:33:00 [只看该作者]

图片上的加载数，我想要实现双击（单击）3级节点的时候就可以筛选出表里型号字段和单击3级节点一致的数据

目前的代码只可以实现双击2级节点的时候只筛选系列名称字段一致的的数据，双击3级节点的时候所有的数据都不筛选了！！

Dim Filter As String

If e.node.Text = "加载所有数据" Then

Filter = ""

Else

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow

Select Case e.Node.Level

Case 0

Filter ="[品牌] = '" & dr("品牌") & "'"

Case 1

Filter ="[品牌] = '" & dr("品牌") & "' And [系列名称] = '" & dr("系列名称") & "'"

Case 1

Filter ="[品牌] = '" & dr("品牌") & "' And [系列名称] = '" & dr("系列名称") & "'
图片点击可在新窗口打开查看

此主题相关图片如下：捕获1.png

And [型号] = '" & dr("型号") &"'"

End Select

End If

DataTables("商品信息表").LoadFilter = Filter

DataTables("商品信息表").Load()

有点蓝

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

加好友

发短信

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

Post By：2017/6/10 17:46:00 [只看该作者]

Select Case e.Node.Level

Case 0

Filter ="[品牌] = '" & dr("品牌") & "'"

Case 1

Filter ="[品牌] = '" & dr("品牌") & "' And [系列名称] = '" & dr("系列名称") & "'"

Case 2

Filter ="[品牌] = '" & dr("品牌") & "' And [系列名称] = '" & dr("系列名称") & "' And [型号] = '" & dr("型号") &"'"

qq419863108

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

加好友

发短信

等级：婴狐帖子：29 积分：278 威望：0 精华：0 注册：2017/5/14 18:41:00

Post By：2017/6/12 16:26:00 [只看该作者]

改成这个代码之后出现这样的问题了，打开窗口第一次双击所有节点没什么问题，第2次双击所有节点就提示错误了！
图片点击可在新窗口打开查看

此主题相关图片如下：捕获2.png

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/12 16:29:00 [只看该作者]

Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim ary() As String = e.node.fullpath.split("\")
    Select Case e.Node.Level
        Case 0
            Filter ="[品牌] = '" & ary(0) & "'"
        Case 1
            Filter ="[品牌] = '" & ary(0) & "' And [系列名称] = '" & ary(1) & "'"
        Case 2
            Filter ="[品牌] = '" & ary(0) & "' And [系列名称] = '" & ary(1) & "' And [型号] = '" & ary(2) &"'"
    End Select
End If
DataTables("商品信息表").LoadFilter = Filter
DataTables("商品信息表").Load()

下一主题 >> << 上一主题

主题：[求助]关于加载树筛选问题