- 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=126174)
-- 发布时间：2018/10/16 10:34:00
-- 筛选出的日期不正确
Dim Filter As String
With e.Form.Controls("DateTimePicker3")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 >= #" & .Value & "#"
vars("起始日期") = .Value
End If
End With
With e.Form.Controls("DateTimePicker4")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 <= #" & .Value & "#"
vars("终止日期") = .Value
End If
End With
If Filter > "" Then
DataTables("表A").loadfilter = "日期 > # " & Date.Today.adddays(-360) & " #" \' 加载一年内的数据，只在这一年的数据里面进行查询.
DataTables("表A").load
Tables("表A").Filter = "[姓名] = \'小王\' and " & filter \' 这里筛选出的日期超出我期望的范围了，怎么回事呢？
Else
MessageBox.Show("Sorry! 没有查询到在此期间任何记录!")
End If
-- 发布时间：2018/10/16 10:56:00
--
DataTables("表A").loadfilter = "日期 >#" & Date.Today.adddays(-360) & "#"
#前后的空格去掉
-- 发布时间：2018/10/16 11:50:00
--
还是不行哦。
比如，我只想查2018-03-01到2018-05-30这段记录， 结果把2017的记录都查出来了。
再帮看下，哪里还有问题呢？
-- 发布时间：2018/10/16 12:00:00
--
加载一年内的数据 -- 是指今年内？还是指去年今日至今？如果是后者上面的代码不会有问题。具体上传实例看看
-- 发布时间：2018/10/16 12:02:00
--
DataTables("表A").loadfilter = "日期 >#" & Date.Today.adddays(-360) & "#" \'加载从今天算起，360天内，差不多一年的数据吧。 |
-- 发布时间：2018/10/16 14:02:00
--
msgbox(filter) \'显示的条件是什么？
-- 发布时间：2018/10/16 15:24:00
--
代码没有问题的，最后肯定是筛选你一年内的数据，以及你设置的筛选。
如果还有问题做个实例发上来测试。
-- 发布时间：2018/10/16 16:37:00
--
Dim Filter As String With e.Form.Controls("DateTimePicker3") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "日期 >= #" & .Value & "#" vars("起始日期") = .Value End If End With With e.Form.Controls("DateTimePicker4") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "日期 <= #" & .Value & "#" vars("终止日期") = .Value End If End With If Filter > "" Then DataTables("表A").loadfilter = "日期 > # " & Date.Today.adddays(-360) & " #" \' 加载一年内的数据，只在这一年的数据里面进行查询. DataTables("表A").load Tables("表A").Filter = "[姓名] = \'小王\' or [姓名] = \'小张\' and " & filter \' 是这里的问题，如果再加一个条件 or [姓名] = \'小张\', 筛选日期就不正确了。应该怎么改呢？ Else MessageBox.Show("Sorry! 没有查询到在此期间任何记录!") End If |
[此贴子已经被作者于2018/10/16 16:37:44编辑过]
-- 发布时间：2018/10/16 16:40:00
--
Tables("表A").Filter = "([姓名] = \'小王\' or [姓名] = \'小张\') and " & filter
-- 发布时间：2018/10/16 16:46:00
--
甜甜好厉害， 帮了我的大忙。 我怎么能请您请吃饭呢？
