Foxtable(狐表)用户栏目专家坐堂 → [求助]有点甜老师,返回上一步筛选。


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

主题:[求助]有点甜老师,返回上一步筛选。

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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
[求助]有点甜老师,返回上一步筛选。  发帖心情 Post By:2021/5/4 22:12:00 [只看该作者]

经过多步筛选后,想返回上一步的
Tables("A").ApplyFilter = False,这个回到最初状态啦,撤销一个条件后,返回上一步筛选结果。谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105467 积分:536320 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/5 9:04:00 [只看该作者]

没有这种功能。

自己做:可以使用集合记录每一个步骤的筛选条件,返回上一步就从集合删除最后一个项目,然后取集合的最后一项作为筛选条件

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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2021/5/5 9:24:00 [只看该作者]

非常感谢!

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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2021/5/5 9:45:00 [只看该作者]

你好老师我的筛选条件是这样的。
Dim Filter As String = "1=1"
With e.Form.Controls("textbox1")
    If .Value IsNot Nothing Then
        Filter = Filter & " and 科类 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("textbox2")
    If .Value IsNot Nothing Then        
        Filter = Filter & " and 录取批次 like  '%" & .Value &   "%'"
    End If
End With
With e.Form.Controls("textbox3")
    If .Value IsNot Nothing Then
        Filter = Filter & " and 院校名称 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("textbox4")
    If .text <> Nothing Then
        Dim flt As String = "1=2"
        For Each s As String In .text.split(" ")
            flt &= " or 院校名称 like '%" & s & "%' or 专业名称 like '%" & s & "%'"
        Next
        filter &= " and (" & flt & ")"
    End If
End With

With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        Filter &= " and 年度 in ('" & .Value.replace(",", "','") & "')"
    End If
End With



Tables("高考信息查询表汇总").Filter = Filter 
Tables("高考信息查询表汇总").Sort = "院校名称,专业名称 desc,年度 desc,最低分分数 desc"

应该怎么加集合,小白啊,不懂啊。不想重新筛选,会影响速度吧,想回到上一步。非常谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105467 积分:536320 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/5 9:57:00 [只看该作者]

定义一个全局变量:http://www.foxtable.com/webhelp/topics/1450.htm

public lst as new List(of string)

筛选按钮
……
lst.add(Filter )
Tables("高考信息查询表汇总").Filter = Filter 
Tables("高考信息查询表汇总").Sort = "院校名称,专业名称 desc,年度 desc,最低分分数 desc"

上一步按钮
if lst.count <= 1 then
Tables("高考信息查询表汇总").Filter = ""
else
lst.removeat(lst.count  - 1)
Tables("高考信息查询表汇总").Filter = lst(lst.count  - 1)
end if

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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2021/5/5 10:46:00 [只看该作者]

非常感谢!辛苦啦

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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2021/5/5 11:02:00 [只看该作者]

非常感谢!辛苦啦

 回到顶部