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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于加载树筛选问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101962)

--  作者：qq419863108
--  发布时间：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()

--  作者：有点蓝
--  发布时间：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
--  发布时间：2017/6/12 16:26:00
--
改成这个代码之后出现这样的问题了，打开窗口第一次双击所有节点没什么问题，第2次双击所有节点就提示错误了！
此主题相关图片如下：捕获2.png

--  作者：有点色
--  发布时间：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()