主题：复选框的筛选

 Dim filter As String
Dim d As Date = Date.Today
Dim y As Integer = d.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
'Dim Filter As String
Filter = "开piao日期 >= #" & dt1 & "# And 开piao日期 <= #" & dt2 & "# And 录入人员 = '" &  _username & "'"
DataTables("fa piao").LoadFilter = Filter