以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于分页后的筛选？请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65894)
--  作者：zhy400137
--  发布时间：2015/3/25 10:03:00
--  关于分页后的筛选？请教
我对名叫“录入清单”的表格进行了分页
With DataTables("录入清单")
    .LoadFilter = "[姓名] =\'" & User.Name & "\'" \'一定要清除加载条件
    .LoadTop = 15
    .LoadPage = 0
    .Load()
End With
运行正常，但我想加入个在快捷菜单中的快速筛选功能，比如同年的数据，
用了以下代码
Dim y As Integer = Date.today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#" 
Tables("录入清单").Filter = Filter

代码可以用，但发现筛选的数据只是对当前页进行了筛选，不是所以数据，请教老师应该如何
处理，谢谢！
--  作者：zhy400137
--  发布时间：2015/3/25 10:18:00
--  
顶上去！！！
--  作者：有点甜
--  发布时间：2015/3/25 10:19:00
--  

 比如可以这样

 

Dim y As Integer = Date.today.Year
Dim dt1 As New Date(y, 1, 1)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 < #" & dt1.AddYears(1) & "#"

With DataTables("录入清单")
    .LoadFilter = "[姓名] =\'" & User.Name & "\' and " & filter \'一定要清除加载条件
    .LoadTop = 15
    .LoadPage = 0
    .Load()
End With
--  作者：zhy400137
--  发布时间：2015/3/25 10:35:00
--  
我试试，谢谢老师！