Foxtable(狐表)用户栏目专家坐堂 → 查询按钮不能使用


  共有4065人关注过本帖树形打印复制链接

主题:查询按钮不能使用

帅哥哟,离线,有人找我吗?
阆子天涯
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:124 积分:1071 威望:0 精华:0 注册:2014/3/4 22:06:00
查询按钮不能使用  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/4/7 8:39:00 [只看该作者]

上传例子。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 


 回到顶部