共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：窗口筛选问题
1楼
wqc360 发表于：2010/1/13 11:10:00请问我窗口有一日期输入框控件（名称：日期），有一组合框控件（名称：班组），绑定一表，怎样才能实现不用按钮，输入日期值和选择班组时实现如下筛选。
1.日期（班组空）有数据时表筛选出日期相符的行。
2.班组（日期空）有数据时表筛选出班组相符的行。
3.两个都有数据时，筛选出表符合日期和班组的行。谢谢
2楼
程兴刚 发表于：2010/1/13 11:25:00取消绑定，上传文件，您懒我也懒！
3楼
wqc360 发表于：2010/1/13 11:35:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目17.table |
简单做了一个
4楼
blackzhu 发表于：2010/1/13 12:11:00以下是引用wqc360在2010-1-13 11:10:00的发言：
请问我窗口有一日期输入框控件（名称：日期），有一组合框控件（名称：班组），绑定一表，怎样才能实现不用按钮，输入日期值和选择班组时实现如下筛选。
1.日期（班组空）有数据时表筛选出日期相符的行。
2.班组（日期空）有数据时表筛选出班组相符的行。
3.两个都有数据时，筛选出表符合日期和班组的行。谢谢
这个可以看看帮助中窗口筛选啊.
5楼
czy 发表于：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
控件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
6楼
wqc360 发表于：2010/1/13 12:44:00谢谢C版，搞定
共6 条记录, 每页显示 10 条, 页签:
[1]