- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [原创]按日期查询问题？？？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=55159)
-- 发布时间：2014/8/11 23:33:00
-- [原创]按日期查询问题？？？
Dim rq As WinForm.DateTimePicker = e.Form.Controls("日期")
Dim czrb As WinForm.ComboBox = e.Form.Controls("炒制类别")
Tables("晒青管理").Filter= "日期 = \'" & rq.Text & "\'and 炒制类别 = \'" & czrb.Text & "\'"
按分析键没有反应 ？？？？
此主题相关图片如下：按日期查询.jpg
-- 发布时间：2014/8/12 1:16:00
--
Tables("晒青管理")你这个表在窗口里吧，应该不是叫这个表名
另外日期应该是加#
-- 发布时间：2014/8/12 1:17:00
--
还有rq.text这个什么啊
-- 发布时间：2014/8/12 8:33:00
--
９０％的可能性是，你筛选的是主表，你窗口表是副本表．
-- 发布时间：2014/8/12 9:17:00
--
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 & "\'"
-- 发布时间：2014/8/12 14:38:00
--
表达式包含无效的日期常量“#\' and 炒制类别 = \'\'”。
-- 发布时间：2014/8/12 14:41:00
--
Dim rq As WinForm.DateTimePicker = e.Form.Controls("日期")
Dim czrb As WinForm.ComboBox = e.Form.Controls("炒制类别")
Tables("晒青管理").Filter= "日期 = #" & rq.Text & "\'# and 炒制类别 = " & czrb.Text & "\'"
出现：该字符串未被识别为有效的 DateTime。
-- 发布时间：2014/8/12 14:43:00
--
附表不能查询吗？
-- 发布时间：2014/8/12 14:45:00
--
Dim rq As WinForm.DateTimePicker = e.Form.Controls("日期")
Dim czrb As WinForm.ComboBox = e.Form.Controls("炒制类别")
Dim filter As String = "1=1"
If rq.Value <> Nothing Then
filter &= " and 日期 = #" & rq.Text & "#"
End If
If czrb.Text > "" Then
filter &= " and 炒制类别 = " & czrb.Text & "\'"
End If
Tables("晒青管理").Filter= filter
-- 发布时间：2014/8/12 15:14:00
--
Dim rq As WinForm.DateTimePicker = e.Form.Controls("日期")
Dim czrb As WinForm.ComboBox = e.Form.Controls("炒制类别")
Dim filter As String = "1=1"
If rq.Value <> Nothing Then
filter &= " and 日期 = #" & rq.Text & "#"
End If
If czrb.Text > "" Then
filter &= " and 炒制类别 = " & czrb.Text & "\'"
End If
Tables("晒青管理").Filter= filter
第二个组合框：为空了，按查询没有反应。
此主题相关图片如下：数据查询1.jpg