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


  共有3341人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望: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()

 


 回到顶部