以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  查询代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47847)
--  作者：发财
--  发布时间：2014/3/18 15:35:00
--  查询代码

If Tables("收购销售查询窗口_Table1").Cols(1).name = "猪主姓名" Then
   
    Dim bh As WinForm.DateTimePicker = e.Form.Controls("日期查询")
    Dim bb As WinForm.combobox = e.Form.Controls("猪主查询")
    Dim cb As WinForm.textbox = e.Form.Controls("编号查询")
    Dim dh As WinForm.textbox = e.Form.Controls("收购凭证号查询")
   
    Tables("收购销售查询窗口_Table1").Filter= "日期 = \'#" & bh.Text & "# \' And 猪主姓名 Like \'*" & bb.Text & "*\'and 编号 like \'*" & cb.Text & "*\' and 收购凭证号 like \'*" & dh.Text & "*\'"

Else
    MessageBox.Show("请先加载收购!")
End If

上述代码不起作用？
--  作者：Bin
--  发布时间：2014/3/18 15:40:00
--  
 Tables("收购销售查询窗口_Table1").Filter= "日期 = #" & bh.Text & "# And 猪主姓名 Like \'*" & bb.Text & "*\' and 编号 like \'*" & cb.Text & "*\' and 收购凭证号 like \'*" & dh.Text & "*\'"

日期只需要#号不需要单引号+#号    \'号和AND的空格要注意,不能贴在一起.
--  作者：发财
--  发布时间：2014/3/18 15:50:00
--  

起作用：    Tables("收购销售查询窗口_Table1").Filter= "日期 = #" & bh.Text & "# And 猪主姓名 Like \'*" & bb.Text & "*\'"

不起作用： Tables("收购销售查询窗口_Table1").Filter= "日期 = #" & bh.Text & "# And 猪主姓名 Like \'*" & bb.Text & "*\' and 编号 like \'*" & cb.Text & "*\' and 收购凭证号 like \'*" & dh.Text & "*\'"

为什么？
--  作者：发财
--  发布时间：2014/3/18 16:01:00
--  
前面三样查询都没问题，最后查询（收购凭证号）出现问题：and 收购凭证号 like \'*" & dh.Text & "*\'
--  作者：lsy
--  发布时间：2014/3/18 16:02:00
--  
也许没有同时符合这么多条件的记录。
--  作者：发财
--  发布时间：2014/3/18 16:19:00
--  
    Tables("收购销售查询窗口_Table1").Filter= "日期 = #" & bh.Text & "# and 猪主姓名 like \'*" & bb.Text & "*\'and 编号 like \'*" & cb.Text & "*\'" Or " 收购凭证号 Like \'*" & dh.Text & "*\'" 
运行错误：Conversion from string "日期 = ## and 猪主姓名 like \'**\'and 编号" to type \'Long\' is not valid.
--  作者：e-png
--  发布时间：2014/3/18 18:33:00
--  

(编号 like \'*" & cb.Text & "*\' Or 收购凭证号 Like \'*" & dh.Text & "*\' " )