在窗体中怎样输入两个日期后可以跳出相应的数据

若离ヘ不弃°

todaynew

在控件的更新后事件中写筛选代码即可

若离ヘ不弃°

todaynew 发表于 2012-5-22 12:28
在控件的更新后事件中写筛选代码即可

具体怎么写能说明下吗，还是菜鸟中的大菜鸟

todaynew

若离ヘ不弃° 发表于 2012-5-22 12:30
具体怎么写能说明下吗，还是菜鸟中的大菜鸟

1、写一个子程序
sub Allfiter()
    dim strwh as string
    strwh="True"
    if isnull(me.起始日期.value)=false then
       strwh=strwh & " and 日期>=#" & me.起始日期.value & "#"
    end if
    if isnull(me.截止日期.value)=fasle then
      strwh=strwh & " and 日期<=#" & me.截止日期.value & "#"
    end if
    me.阁下的子窗体控件名称.form.filter=strwh
    me.阁下的子窗体控件名称.form.filteron=true
end sub

2、在控件的更新后时间中调用该子程序
call Allfilter

Henry D. Sy

这样都行吗

Henry D. Sy

1. Private Sub Command6_Click()
   
2.     Dim strWhere As String
   
3.     If Not IsNull(Me.Text0) Then
   
4.         strWhere = strWhere & " 日期 >=# " & Me.Text0 & "# AND "
   
5.     End If
   
6.     If Not IsNull(Me.Text2) Then
   
7.         strWhere = strWhere & " 日期 <=# " & Me.Text2 & "# AND "
   
8.     End If
   
9.     If Len(strWhere) <> 0 Then
   
10.         strWhere = Left(strWhere, Len(strWhere) - 5)
    
11.     End If
    
12.     Me.Child4.Form.Filter = strWhere
    
13.     Me.Child4.Form.FilterOn = True
    
14. End Sub
    

复制代码

若离ヘ不弃°

Henry D. Sy 发表于 2012-5-22 13:05

好像不用写这么繁琐的程序啊，在查询设计的日期条件中生成器中 between and 两个文本框就好了

Henry D. Sy

若离ヘ不弃° 发表于 2012-5-22 16:34
好像不用写这么繁琐的程序啊，在查询设计的日期条件中生成器中 between and 两个文本框就好了

我想问你，能用吗？

pq318

between在access，不说了

520fanren

在控件的更新后事件中