- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 交叉统计查询的问题求助？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52722)
-- 发布时间：2014/6/21 16:29:00
-- 交叉统计查询的问题求助？
交叉统计查询的问题求助？
如图，这样的方式可不可以查询，以前发过贴子，有老师教过简单的一个控件查询的，如果这么多一起查可不可以呢？
求老师指点!!
此主题相关图片如下：qq截图20140621102410.jpg
此主题相关图片如下：qq截图20140621102410.jpg| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:交叉统计查询求助？.rar |
求老师帮我写二到三个控件的代码，我学这做做
[此贴子已经被作者于2014-6-21 16:47:34编辑过]
-- 发布时间：2014/6/21 16:29:00
--
沙发
-- 发布时间：2014/6/21 16:34:00
--
沙发
-- 发布时间：2014/6/21 16:45:00
--
有没有老师在啊，上午论坛打不开，期盼了一天了啊
-- 发布时间：2014/6/21 16:51:00
--
参考帮助http://www.foxtable.com/help/topics/1058.htm
-- 发布时间：2014/6/21 18:03:00
-- 谢谢老师
谢谢老师
正是我想要的查询结果，但我按例子做了下，有问题，同一个条件下不能全选，否则查询不到结果，不知道为什么，我想如果同一个条件下所有条件一起查的话应该是全部显示呀，求
此主题相关图片如下：qq截图20140621180032.jpg
解！！
此主题相关图片如下：qq截图20140621180032.jpg| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:交叉统计查询求助？.rar |
解！！
-- 发布时间：2014/6/21 18:30:00
--
“同一条件不能全选”什么意思？
试试用“in”替代“=”
[此贴子已经被作者于2014-6-21 18:32:17编辑过]
-- 发布时间：2014/6/21 22:37:00
--
我没有说清楚我的意思，如图，比如说在“地址”下拉控件里有5个选顶，全不勾选可以理解为不参于交叉查询或全参加交叉查询，但我选择2个或以上的选项时，交叉查询就没有结果了，不知代码该怎么改，求老师指点？查询代码如下：
Dim Filter As String
With e.Form.Controls("cmbProduct")
If .Value IsNot Nothing Then
Filter = "地址 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("cmbCustomer")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "吃饭 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("cmbEmployee")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "车费 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("StartDate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "记录日期 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("EndDate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "记录日期 <= #" & .Value & "#"
End If
End With
If e.Form.Controls("rdoYifu").Checked = True \' 如果付款状态选择了"已付"
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "已记录 = True"
End If
If e.Form.Controls("rdoWeifu").Checked = True \' 如果付款状态选择了"未付"
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "已记录 = False Or 已记录 Is Null"
End If
If Filter > "" Then
Tables("交叉").Filter = Filter
End If
如图：
此主题相关图片如下：qq截图20140621223238.jpg
此主题相关图片如下：qq截图20140621223238.jpg-- 发布时间：2014/6/22 9:03:00
--
老师，帮看看吧，求了
-- 发布时间：2014/6/22 9:23:00
--
Dim Filter As String
With e.Form.Controls("cmbProduct")
If .Value IsNot Nothing Then
Filter = "地址 = \'" & .Value & "\'"
End If
End With
改成，留意红色代码
Dim Filter As String
With e.Form.Controls("cmbProduct")
If .Value IsNot Nothing Then
Filter = "地址 in (\'" & .Value.Replace(",", "\',\'") & "\')"
End If
End With