主题：[原创]按日期查询问题？？？

Dim rq As WinForm.DateTimePicker = e.Form.Controls("日期")
Dim czrb As WinForm.ComboBox = e.Form.Controls("炒制类别")
Tables("晒青管理").Filter= "日期 = #" & rq.Text & "# and 炒制类别 = '" & czrb.Text & "'"

'Tables("窗口1_Table1").Filter= "日期 = #" & rq.Text & "# and 炒制类别 = '" & czrb.Text & "'"