以下是引用阆子天涯在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