[求助]有点甜老师，返回上一步筛选。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

经过多步筛选后，想返回上一步的

Tables("A").ApplyFilter = False，这个回到最初状态啦，撤销一个条件后，返回上一步筛选结果。谢谢！

没有这种功能。

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

你好老师我的筛选条件是这样的。

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 & "%'"

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"

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

定义一个全局变量：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

非常感谢！辛苦啦

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