以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  日期设置错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92161)

--  作者:13055984798
--  发布时间:2016/10/27 16:36:00
--  日期设置错误
我在按钮中设置如下代码:Tables("表1").Filter = "到期日期 <= #12/31/2016#",能正常运行,但我想实现“到期日期”小于等于查询时的年份,如改成:Tables("表1").Filter = "到期日期 <= #12/31/date.today.year#",电脑就报错。不知什么原因?请老师指教。
--  作者:有点蓝
--  发布时间:2016/10/27 17:04:00
--  
Tables("表1").Filter = "到期日期 <= #" & new Date(Date.Today.Year,12,31) & "#"
--  作者:13055984798
--  发布时间:2016/10/27 17:57:00
--  
按老师的指点,修改了代码,还是不行,电脑还是报错,说是该字符串未识别为有效的datetime,有一个从索引11处开始 未知字。
--  作者:有点蓝
--  发布时间:2016/10/27 20:00:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=91358&replyID=629874&skin=1
--  作者:13055984798
--  发布时间:2016/10/28 8:58:00
--  
按老师的方法,修改了电脑中控制面板内日期设置格式,但是问题仍然不能解决。
--  作者:有点蓝
--  发布时间:2016/10/28 8:59:00
--  
贴出你有问题的完整代码,或者上传例子看看
--  作者:13055984798
--  发布时间:2016/10/28 9:06:00
--  
代码:Tables("表1").Filter = "到期日期 <= #12/31/2016#",能正常运行,说明代码正确,如将年份2016改成date.today.year,电脑就不能识别。问题应该出在代码date.today.year上,但不知怎么修改,请老师指点。
--  作者:有点蓝
--  发布时间:2016/10/28 9:16:00
--  
2楼的代码测试没有问题,如果还是3楼的提示请按照4楼的方式更改操作系统日期格式,不能出现星期和上下午的格式,改完后重启电脑

仍然不行请上传例子测试

--  作者:13055984798
--  发布时间:2016/10/28 9:41:00
--  
一、电脑重启了,问题依旧。
二、原代码为:select case e.link text
                       case "今年兵役期满人员“
                           table("人员信息”).filer = "到期时间<= #12/31/data.today.year#
                             maintable = tables("人员信息“)

--  作者:13055984798
--  发布时间:2016/10/28 9:48:00
--  
一、电脑重启了,问题依旧。
二、原代码为:select case e.link text
                       case "今年兵役期满人员“
                           table("人员信息”).filer = "到期时间<= #12/31/data.today.year#
                             maintable = tables("人员信息“)
                        end select