Foxtable(狐表)用户栏目专家坐堂 → 目录树筛选功能


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

主题:目录树筛选功能

帅哥哟,离线,有人找我吗?
新航程小何
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:4786 威望:0 精华:0 注册:2014/9/17 11:34:00
目录树筛选功能  发帖心情 Post By:2015/3/3 11:40:00 [只看该作者]

各位老师,我想实现通过动态的用目录树对数据进行筛选,但是问题就是绑定的表在变,每个数据表的筛选分组不一样,然后我编了如下代码,但是系统说,如截图,我需要怎么修改

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow
If Tables("共享数据_table1").DataSource =DataTables("园区") Then'对于table表的判定
    If e.Node.Text <> "" Then
        Select Case e.Node.Level
            Case 2
                Filter = "[所在省份] = '" & dr("所在省份") & "' And [建园状态] = '" & dr("建园状态") & "' And [园区名称] = '" & dr("园区名称") & "'"
            Case 1
                Filter = "[所在省份] = '" & dr("所在省份") & "' And [建园状态] = '" & dr("建园状态") & "'"
               
            Case 0
                Filter = "[所在省份] = '" & dr("所在省份") & "'"
               
        End Select
    End If
ElseIf Tables("共享数据_table1").DataSource =DataTables("地块") Then
    If e.Node.Text <> "" Then
        Select Case e.Node.Level
            Case 2
                Filter = "[所在省份] = '" & dr("所在省份") & "' And [建园状态] = '" & dr("建园状态") & "' And [园区名称] = '" & dr("园区名称") & "'"
            Case 1
                Filter = "[所在省份] = '" & dr("所在省份") & "' And [建园状态] = '" & dr("建园状态") & "'"
               
            Case 0
                Filter = "[所在省份] = '" & dr("所在省份") & "'"
               
        End Select
End If
Tables("共享数据_table1").Filter = Filter

 


图片点击可在新窗口打开查看此主题相关图片如下:截图20150303113827.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/3/3 11:42:00 [只看该作者]

不可以这么判断
你可以

If Tables("共享数据_table1").Datatable.name="园区" Then

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2015/3/3 11:43:00 [只看该作者]

不是有通用多选筛选树么?绑定任意表、任意列。

 回到顶部