以文本方式查看主题

-  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=48833)
--  作者：阆子天涯
--  发布时间：2014/4/6 22:26:00
--  查询按钮不能使用

以下是查询按钮的代码，实现组合查询功能的目的，但就是不能用，请帮忙看下，谢谢

 

Dim sku As WinForm.ComboBox = e.Form.Controls("款号")
Dim co As WinForm.ComboBox = e.Form.Controls("颜色")
Dim size As WinForm.ComboBox = e.Form.Controls("尺码")
Tables("货号信息").Filter = "款号 = \'"& sku.text & "\' and 颜色 = \'"& co.text & "\' and 尺码 = \'" & size.text & "\'"
--  作者：lsy
--  发布时间：2014/4/7 8:39:00
--  
上传例子。
--  作者：有点甜
--  发布时间：2014/4/7 9:01:00
--  
以下是引用阆子天涯在2014-4-6 22:26:00的发言：

以下是查询按钮的代码，实现组合查询功能的目的，但就是不能用，请帮忙看下，谢谢

 

Dim sku As WinForm.ComboBox = e.Form.Controls("款号")
Dim co As WinForm.ComboBox = e.Form.Controls("颜色")
Dim size As WinForm.ComboBox = e.Form.Controls("尺码")
Tables("货号信息").Filter = "款号 = \'"& sku.text & "\' and 颜色 = \'"& co.text & "\' and 尺码 = \'" & size.text & "\'"

 

你的这段代码是【完全查询】，就试试 款号、颜色、尺码 都填写正确的时候才能查询到结果。

 

或者你改成这样 Tables("货号信息").Filter = "款号 like \'*"& sku.text & "*\' and 颜色 like \'*"& co.text & "*\' and 尺码 like \'*" & size.text & "*\'"

 

或者你参考这里 http://www.foxtable.com/help/topics/1058.htm