标题: 麻烦帮忙看看以下代码出了什么问题？ [打印本页] 作者: snryga 时间: 2017-10-12 20:35 标题: 麻烦帮忙看看以下代码出了什么问题？ 在窗体上做了个查询用于筛选子窗体数据：
查询条件:开始日期（2017/9/1），截止日期（2017/9/1），就是正常的。但查询条件改成：开始日期（2017/9/1），截止日期（2017/9/2），就把1号、2号及11号到19号的数据全部筛选出来了。这到底怎么回事，整了半天都没搞明白。
Private Sub 查询_Click()
Dim strWhere As String
strWhere = ""
If Not IsNull(Me.开始日期) Then
strWhere = strWhere & "([发生日期] >= #" & Format(Me.开始日期, "yyyy/m/d") & "#) AND "
End If
If Not IsNull(Me.截止日期) Then
strWhere = strWhere & "([发生日期] <= #" & Format(Me.截止日期, "yyyy/m/d") & "#) AND "
End If
If Len(strWhere) > 0 Then strWhere = Left(strWhere, Len(strWhere) - 5)
Me.清单表TF子窗体.Form.Filter = strWhere
Me.清单表TF子窗体.Form.FilterOn = True