Foxtable(狐表) → 用户栏目 → 专家坐堂 → 交叉统计查询的问题求助？


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

主题：交叉统计查询的问题求助？
帅哥哟，离线，有人找我吗？
看雪的人
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：1988 威望：0 精华：0 注册：2014/4/29 23:43:00 		交叉统计查询的问题求助？  发帖心情 Post By：2014/6/21 16:29:00 [显示全部帖子]

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

如图，这样的方式可不可以查询，以前发过贴子，有老师教过简单的一个控件查询的，如果这么多一起查可不可以呢？
求老师指点!!
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140621102410.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:交叉统计查询求助？.rar



求老师帮我写二到三个控件的代码，我学这做做
[此贴子已经被作者于2014-6-21 16:47:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
看雪的人
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：1988 威望：0 精华：0 注册：2014/4/29 23:43:00 		  发帖心情 Post By：2014/6/21 16:29:00 [显示全部帖子]

沙发

 回到顶部
帅哥哟，离线，有人找我吗？
看雪的人
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：1988 威望：0 精华：0 注册：2014/4/29 23:43:00 		  发帖心情 Post By：2014/6/21 16:34:00 [显示全部帖子]

沙发

 回到顶部
帅哥哟，离线，有人找我吗？
看雪的人
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：1988 威望：0 精华：0 注册：2014/4/29 23:43:00 		  发帖心情 Post By：2014/6/21 16:45:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
看雪的人
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：1988 威望：0 精华：0 注册：2014/4/29 23:43:00 		谢谢老师  发帖心情 Post By：2014/6/21 18:03:00 [显示全部帖子]

谢谢老师
正是我想要的查询结果，但我按例子做了下，有问题，同一个条件下不能全选，否则查询不到结果，不知道为什么，我想如果同一个条件下所有条件一起查的话应该是全部显示呀，求
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140621180032.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:交叉统计查询求助？.rar

解！！
 回到顶部
帅哥哟，离线，有人找我吗？
看雪的人
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：1988 威望：0 精华：0 注册：2014/4/29 23:43:00 		  发帖心情 Post By：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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
看雪的人
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：1988 威望：0 精华：0 注册：2014/4/29 23:43:00 		  发帖心情 Post By：2014/6/22 9:03:00 [显示全部帖子]

老师，帮看看吧，求了

 回到顶部
帅哥哟，离线，有人找我吗？
看雪的人
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：1988 威望：0 精华：0 注册：2014/4/29 23:43:00 		谢谢  发帖心情 Post By：2014/6/22 11:11:00 [显示全部帖子]

非常感谢，再次请问,时间控件的怎么改？代码如下：

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
 回到顶部
帅哥哟，离线，有人找我吗？
看雪的人
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：1988 威望：0 精华：0 注册：2014/4/29 23:43:00 		  发帖心情 Post By：2014/6/22 12:57:00 [显示全部帖子]

甜老师您好！安照您的方式我改好后单个控件里可以多选项查询了，但查询的结果又出问题了，改好的代码如下，现在的查询结果是以最后一个查询控件查询的，不能交叉了！

Dim Filter As String
With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then
        Filter =  "地址 in ('" & .Value.Replace(",", "','") & "')"
    End If
End With
With e.Form.Controls("cmbCustomer")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = "吃饭 in ('" & .Value.Replace(",", "','") & "')"
    End If
End With
With e.Form.Controls("cmbEmployee")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = "车费 in ('" & .Value.Replace(",", "','") & "')"
    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

望老师指点，跪谢！！！
[此贴子已经被作者于2014-6-22 13:13:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
看雪的人
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：328 积分：1988 威望：0 精华：0 注册：2014/4/29 23:43:00 		  发帖心情 Post By：2014/6/22 13:15:00 [显示全部帖子]

在发一下我改好的，望老师帮看看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:交叉统计查询求助？.rar
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08203 秒, 8 次数据查询