- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 数据查询 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170624)
-- 发布时间：2021/8/2 8:56:00
-- 数据查询
老师您好我想问一下您，我搞了个用户查询，然后我现在一用某一个做为条件进行查询，他的第一行的查询被更改了，例如我用单号111做为查询，本来我的表里面没有111，然后查询出我第一行就是111
-- 发布时间：2021/8/2 8:57:00
--
代码是Dim Filter As String
With e.Form.Controls("店铺名称")
If .Value IsNot Nothing Then
Filter = "店铺名称 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("产品类别")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "产品类别 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("单号")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "单号 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("处理人")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "处理人 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("开始")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("结束")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 <= #" & .Value & "#"
End If
End With
If Filter > "" Then
Tables("查询表").Filter = Filter
End If
-- 发布时间：2021/8/2 8:57:00
--
怎么做的查询？
-- 发布时间：2021/8/2 8:59:00
--
此主题相关图片如下：2b0851eaa999dc7f47f2246ec7a251d.png
这是效果
此主题相关图片如下：6d7aa361fffcfb6697df4d29dee142e.png
-- 发布时间：2021/8/2 9:01:00
--
做查询条件用的控件，不要设置绑定表格，去掉绑定
-- 发布时间：2021/8/2 9:10:00
--
老师我还想问一下您，那同步查询表能不能用代码实行，放进按钮里面，如果可以，可不可以给代码我参考一下，谢谢您
-- 发布时间：2021/8/2 9:15:00
--
参考：http://www.foxtable.com/webhelp/topics/1928.htm