主题：关于分页后的筛选？请教

 比如可以这样

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