Foxtable(狐表)用户栏目专家坐堂 → 日期设置错误


  共有2549人关注过本帖树形打印复制链接

主题:日期设置错误

帅哥哟,离线,有人找我吗?
13055984798
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:153 积分:1138 威望:0 精华:0 注册:2016/5/15 21:50:00
日期设置错误  发帖心情 Post By:2016/10/27 16:36:00 [只看该作者]

我在按钮中设置如下代码:Tables("表1").Filter = "到期日期 <= #12/31/2016#",能正常运行,但我想实现“到期日期”小于等于查询时的年份,如改成:Tables("表1").Filter = "到期日期 <= #12/31/date.today.year#",电脑就报错。不知什么原因?请老师指教。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/27 17:04:00 [只看该作者]

Tables("表1").Filter = "到期日期 <= #" & new Date(Date.Today.Year,12,31) & "#"

 回到顶部
帅哥哟,离线,有人找我吗?
13055984798
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:153 积分:1138 威望:0 精华:0 注册:2016/5/15 21:50:00
  发帖心情 Post By:2016/10/27 17:57:00 [只看该作者]

按老师的指点,修改了代码,还是不行,电脑还是报错,说是该字符串未识别为有效的datetime,有一个从索引11处开始 未知字。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/27 20:00:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=91358&replyID=629874&skin=1

 回到顶部
帅哥哟,离线,有人找我吗?
13055984798
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:153 积分:1138 威望:0 精华:0 注册:2016/5/15 21:50:00
  发帖心情 Post By:2016/10/28 8:58:00 [只看该作者]

按老师的方法,修改了电脑中控制面板内日期设置格式,但是问题仍然不能解决。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/28 8:59:00 [只看该作者]

贴出你有问题的完整代码,或者上传例子看看

 回到顶部
帅哥哟,离线,有人找我吗?
13055984798
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:153 积分:1138 威望:0 精华:0 注册:2016/5/15 21:50:00
  发帖心情 Post By:2016/10/28 9:06:00 [只看该作者]

代码:Tables("表1").Filter = "到期日期 <= #12/31/2016#",能正常运行,说明代码正确,如将年份2016改成date.today.year,电脑就不能识别。问题应该出在代码date.today.year上,但不知怎么修改,请老师指点。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109720 积分:558310 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/28 9:16:00 [只看该作者]

2楼的代码测试没有问题,如果还是3楼的提示请按照4楼的方式更改操作系统日期格式,不能出现星期和上下午的格式,改完后重启电脑

仍然不行请上传例子测试

 回到顶部
帅哥哟,离线,有人找我吗?
13055984798
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:153 积分:1138 威望:0 精华:0 注册:2016/5/15 21:50:00
  发帖心情 Post By:2016/10/28 9:41:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
13055984798
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:153 积分:1138 威望:0 精华:0 注册:2016/5/15 21:50:00
  发帖心情 Post By:2016/10/28 9:48:00 [只看该作者]

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

 回到顶部
总数 21 1 2 3 下一页