以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48027)
--  作者：liruiji
--  发布时间：2014/3/21 15:15:00
--  [求助]
请问设计一个窗口，可以输入起始日期和结束日子，然后有个查询按钮，请问如何实现点按钮后可以查找指定列中日期在这个范围内的所有行呢？
--  作者：Bin
--  发布时间：2014/3/21 15:16:00
--  
参考帮助http://www.foxtable.com/help/topics/2720.htm
--  作者：liruiji
--  发布时间：2014/3/21 15:26:00
--  
上述按钮可以实现按时段筛选了，但是如何实现在窗口中输入任意时段可以作为筛选的起点和止点呢？
--  作者：Bin
--  发布时间：2014/3/21 15:29:00
--  
使用一个日期控件即可

新手建议先看一下我们的帮助
打开软件按F1或者点击左上角的小问号,可以打开非常详细的图文帮助
--  作者：liruiji
--  发布时间：2014/3/21 15:39:00
--  
日期控键可以输入，但是输入的时间无法无查询按钮中的时间关联，苦恼啊
--  作者：liruiji
--  发布时间：2014/3/21 15:40:00
--  

Dim y As Integer = 2014
Dim m As Integer = 4
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(2014,4))
Dim Filter As String
Filter = "设计完成日期 >= #" & dt1 & "# And 设计完成日期 <= #" & dt2 & "#"
Tables("开工报告").Filter = Filter

中的年和月是固定的，如何将其和窗口中文本筐中的时间关联呢？
--  作者：Bin
--  发布时间：2014/3/21 15:41:00
--  
Dim dt1 As Date=forms(XX).controls("控件1").Value
Dim dt2 As Date=forms(XX).controls("控件2").Value
Dim Filter As String
Filter = "设计完成日期 >= #" & dt1 & "# And 设计完成日期 <= #" & dt2 & "#" 
Tables("开工报告").Filter = Filter

帮助全部都有介绍

新手建议先看一下我们的帮助
打开软件按F1或者点击左上角的小问号,可以打开非常详细的图文帮助
--  作者：狐狸爸爸
--  发布时间：2014/3/21 15:45:00
--  

这里有现成的：

 

http://www.foxtable.com/help/topics/1058.htm