交叉统计查询的问题求助？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

交叉统计查询的问题求助？

如图，这样的方式可不可以查询，以前发过贴子，有老师教过简单的一个控件查询的，如果这么多一起查可不可以呢？

求老师指点!!

此主题相关图片如下：qq截图20140621102410.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:交叉统计查询求助？.rar

求老师帮我写二到三个控件的代码，我学这做做

[此贴子已经被作者于2014-6-21 16:47:34编辑过]

有没有老师在啊，上午论坛打不开，期盼了一天了啊

谢谢老师

正是我想要的查询结果，但我按例子做了下，有问题，同一个条件下不能全选，否则查询不到结果，不知道为什么，我想如果同一个条件下所有条件一起查的话应该是全部显示呀，求
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20140621180032.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:交叉统计查询求助？.rar

解！！

“同一条件不能全选”什么意思？

试试用“in”替代“=”

[此贴子已经被作者于2014-6-21 18:32:17编辑过]

我没有说清楚我的意思，如图，比如说在“地址”下拉控件里有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

老师，帮看看吧，求了

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

主题：交叉统计查询的问题求助？