我对名叫“录入清单”的表格进行了分页
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
代码可以用,但发现筛选的数据只是对当前页进行了筛选,不是所以数据,请教老师应该如何
处理,谢谢!