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

第一个表可以。

第二、第三个表没有反应啊？？？

 

 

此主题相关图片如下：第二、第三个.jpg

代码我写到  查询按钮的 click 事件

 代码

 

Dim rq As WinForm.DateTimePicker = e.Form.Controls("日期")
Dim czrb As WinForm.ComboBox = e.Form.Controls("炒制类别")
Dim filter As String = "1=1"

Dim Filter1 As String = "1=1"
If rq.Value <> Nothing Then
    filter &= " and 日期 >= #" & rq.value & "# And 日期 < #" & rq.value.adddays(1) & "#"

    filter1 &= " and 日期 >= #" & rq.value & "# And 日期 < #" & rq.value.adddays(1) & "#"
End If
If czrb.Text > "" Then
    filter &= " and 炒制类别 = '" & czrb.Text & "'"
End If
e.Form.Controls("晒青管理").Table.Filter= filter

e.Form.Controls("做青摇青管理").Table.Filter= filter1

e.Form.Controls("做青青房管理").Table.Filter= filter1

可以了，两次的代码一样啊，上次怎么不行？

 

厉害！厉害！厉害！！！！

filter1 &= " and 日期 >= #" & rq.value & "# And 日期 < #" & rq.value.adddays(1) & "#"

恩，对了 上次少了1 ，非常感谢！！

 

谢谢版主。