- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 窗口筛选问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=5773)
-- 发布时间：2010/1/13 11:10:00
-- 窗口筛选问题
请问我窗口有一日期输入框控件（名称：日期），有一组合框控件（名称：班组），绑定一表，怎样才能实现不用按钮，输入日期值和选择班组时实现如下筛选。
1.日期（班组空）有数据时表筛选出日期相符的行。
2.班组（日期空）有数据时表筛选出班组相符的行。
3.两个都有数据时，筛选出表符合日期和班组的行。谢谢
-- 发布时间：2010/1/13 11:25:00
--
取消绑定，上传文件，您懒我也懒！
-- 发布时间：2010/1/13 11:35:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目17.table |
简单做了一个
-- 发布时间：2010/1/13 12:11:00
--
以下是引用wqc360在2010-1-13 11:10:00的发言：
请问我窗口有一日期输入框控件（名称：日期），有一组合框控件（名称：班组），绑定一表，怎样才能实现不用按钮，输入日期值和选择班组时实现如下筛选。
1.日期（班组空）有数据时表筛选出日期相符的行。
2.班组（日期空）有数据时表筛选出班组相符的行。
3.两个都有数据时，筛选出表符合日期和班组的行。谢谢
这个可以看看帮助中窗口筛选啊.
-- 发布时间：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
-- 发布时间：2010/1/13 12:44:00
--
谢谢C版，搞定