Foxtable(狐表)用户栏目专家坐堂 → 窗口筛选问题


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

主题:窗口筛选问题

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
窗口筛选问题  发帖心情 Post By:2010/1/13 11:10:00 [只看该作者]

请问我窗口有一日期输入框控件(名称:日期),有一组合框控件(名称:班组),绑定一表,怎样才能实现不用按钮,输入日期值和选择班组时实现如下筛选。
1.日期(班组空)有数据时表筛选出日期相符的行。
2.班组(日期空)有数据时表筛选出班组相符的行。
3.两个都有数据时,筛选出表符合日期和班组的行。谢谢


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


加好友 发短信 一级勋章
等级:超级版主 帖子:7235 积分:40550 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2010/1/13 11:25:00 [只看该作者]

取消绑定,上传文件,您懒我也懒!


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


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/1/13 11:35:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目17.table

简单做了一个

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57584 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2010/1/13 12:11:00 [只看该作者]

以下是引用wqc360在2010-1-13 11:10:00的发言:

请问我窗口有一日期输入框控件(名称:日期),有一组合框控件(名称:班组),绑定一表,怎样才能实现不用按钮,输入日期值和选择班组时实现如下筛选。
1.日期(班组空)有数据时表筛选出日期相符的行。
2.班组(日期空)有数据时表筛选出班组相符的行。
3.两个都有数据时,筛选出表符合日期和班组的行。谢谢

  这个可以看看帮助中窗口筛选啊.


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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33945 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/1/13 12:38:00 [只看该作者]

是的,帮助中有详细的说明。
控件TextChanged事件代码。

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
If Filter > "" Then
    Tables("表A").Filter = Filter
End If

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


加好友 发短信
等级:三尾狐 帖子:790 积分:5677 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/1/13 12:44:00 [只看该作者]

谢谢C版,搞定

 回到顶部