Dim d As Date = Forms("窗口1").Controls("DateTimePicker1").ValueTables("表A").Filter = "日期 = #" & d & "#"
取消筛选
Tables("表A").Filter = “”