Foxtable(狐表)用户栏目专家坐堂 → [求助]数据筛选


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

主题:[求助]数据筛选

帅哥哟,离线,有人找我吗?
老鼠
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:360 积分:3606 威望:0 精华:0 注册:2008/11/2 21:50:00
[求助]数据筛选  发帖心情 Post By:2020/4/1 17:01:00 [只看该作者]

以下是窗口按钮[开始统计]代码:

CurrentTable.Filter = ""

 

Dim Filter As String

With e.Form.Controls("ComboBox1")

    If .Value IsNot Nothing Then

        Filter = "住院科室 = '" & .Value & "'"

    End If

End With

With e.Form.Controls("ComboBox2")

    If .Value IsNot Nothing Then

        If Filter > "" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "经治医生 = '" & .Value & "'"

    End If

End With

With e.Form.Controls("DateTimePicker1")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "出院日期 >= #" & .Value & "#"

    End If

End With

With e.Form.Controls("DateTimePicker2")

    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



筛选结果总是对不上号,请老师给予帮助!
此主题相关图片如下:12.png
按此在新窗口浏览图片
[此贴子已经被作者于2020/4/1 17:03:11编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
老鼠
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:360 积分:3606 威望:0 精华:0 注册:2008/11/2 21:50:00
  发帖心情 Post By:2020/4/1 17:04:00 [只看该作者]

这是表结构
图片点击可在新窗口打开查看此主题相关图片如下:13.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
2900819580
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1302 积分:9451 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By:2020/4/1 17:29:00 [只看该作者]

如果你 【住院科室】 和 【经治医生】 在输入时输入完全一样的,应该是没有问题的,如果你想模糊查找,那代码就要如下修改一下。

 

With e.Form.Controls("ComboBox1")

    If .Value IsNot Nothing Then

        Filter = "住院科室 like '%" & .Value & "%'"

    End If

End With


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/1 17:56:00 [只看该作者]

输入了什么条件?有什么数据筛选不到?

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2020/4/2 7:51:00 [只看该作者]

With e.Form.Controls("ComboBox1")

    If .Value IsNot Nothing Then

        Filter = Filter &"住院科室 = '" & .Value & "'"

    End If

End With


 回到顶部
帅哥哟,离线,有人找我吗?
老鼠
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:360 积分:3606 威望:0 精华:0 注册:2008/11/2 21:50:00
  发帖心情 Post By:2020/4/2 14:45:00 [只看该作者]

以下是引用裴保民在2020/4/2 7:51:00的发言:

With e.Form.Controls("ComboBox1")

    If .Value IsNot Nothing Then

        Filter = Filter &"住院科室 = '" & .Value & "'"

    End If

End With


感谢你的帮助!但你的代码有误!


 回到顶部
帅哥哟,离线,有人找我吗?
老鼠
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:360 积分:3606 威望:0 精华:0 注册:2008/11/2 21:50:00
  发帖心情 Post By:2020/4/2 14:46:00 [只看该作者]

以下是引用2900819580在2020/4/1 17:29:00的发言:

如果你 【住院科室】 和 【经治医生】 在输入时输入完全一样的,应该是没有问题的,如果你想模糊查找,那代码就要如下修改一下。

 

With e.Form.Controls("ComboBox1")

    If .Value IsNot Nothing Then

        Filter = "住院科室 like '%" & .Value & "%'"

    End If

End With



感谢你的帮助!不是模糊查找,我要的是多条件或者单条件混合筛选。


[此贴子已经被作者于2020/4/2 14:47:56编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
老鼠
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:360 积分:3606 威望:0 精华:0 注册:2008/11/2 21:50:00
  发帖心情 Post By:2020/4/2 14:47:00 [只看该作者]

以下是引用有点蓝在2020/4/1 17:56:00的发言:
输入了什么条件?有什么数据筛选不到?

感谢!输入住院科室与经治医生这两个条件没有数据!不知道为什么?


 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/2 16:17:00 [只看该作者]

看1楼截图,ComboBox1是医生,不是科室哦

 回到顶部
帅哥哟,离线,有人找我吗?
老鼠
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:360 积分:3606 威望:0 精华:0 注册:2008/11/2 21:50:00
  发帖心情 Post By:2020/4/3 9:51:00 [只看该作者]

感谢!我总是这样马虎,太不细心了。谢谢!有点蓝老师的指正。

 回到顶部