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
DataTables("fa piao").Load()
这个是我现在的过滤条件代码，我想再加上把复选框选中的过滤掉请教老师