以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何按年显示不同年份的数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128801)

--  作者:dokings
--  发布时间:2018/12/15 13:05:00
--  如何按年显示不同年份的数据
如果在窗体上按年筛选显示数据?
比如选择2018,,,显示2018年的所有数据? 

不想用树来分类,,, 能不能告诉我这个筛选代码怎么弄?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:byear.rar


--  作者:有点蓝
--  发布时间:2018/12/15 14:02:00
--  
参考:http://www.foxtable.com/webhelp/scr/2720.htm
--  作者:dokings
--  发布时间:2018/12/15 14:08:00
--  
这个只有筛选特定某年的,,,不同年份怎么写?
--  作者:有点蓝
--  发布时间:2018/12/15 14:18:00
--  
怎么样的不同年份?举例说明
--  作者:dokings
--  发布时间:2018/12/15 14:44:00
--  
有2015, 2016, 2017, 2018,,,这样不同年份的,,,

我看了下你发的那个代码,只能筛选其中一年,,,能不能看下我发的例子,告诉我应该怎么写这个代码?

--  作者:有点蓝
--  发布时间:2018/12/15 14:59:00
--  
Dim y As Integer = val(e.Form.Controls("ComboBox1").text) \'指定年份
Dim 
dt1 As New Date(y11)
Dim 
dt2 As New Date(y1231)
Dim 
Filter As String
Filter
 = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#" 
Tables
("订单").Filter = Filter
--  作者:dokings
--  发布时间:2018/12/16 10:52:00
--  
这个可行,,,,谢谢版主帮助