- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 想要根据 起始日期和结束日期 来搜索 怎么编码？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=34286)
-- 发布时间：2013/6/4 15:04:00
-- [求助] 想要根据 起始日期和结束日期 来搜索 怎么编码？
想要根据 起始日期和结束日期 来filter 怎么编码？
-- 发布时间：2013/6/4 15:08:00
--
Dim y As Integer = 2011 \'指定年份
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 1)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables("订单").Filter = Filter
参考下
-- 发布时间：2013/6/4 15:36:00
--
心急吃不得热豆腐：
看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》
-- 发布时间：2013/6/28 15:38:00
-- 回复：（cts）[求助] 想要根据 起始日期和结束日期 来...
Dim Filter As String
With e.Form.Controls("日期框名")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = 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("表名").Filter = Filter
End If