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


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

主题:日期设置错误

帅哥哟,离线,有人找我吗?
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#",电脑就报错。不知什么原因?请老师指教。

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


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

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

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


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
13055984798
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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上,但不知怎么修改,请老师指点。

 回到顶部
帅哥哟,离线,有人找我吗?
13055984798
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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


加好友 发短信
等级:幼狐 帖子:153 积分:1138 威望:0 精华:0 注册:2016/5/15 21:50:00
  发帖心情 Post By:2016/10/28 9:58:00 [显示全部帖子]

我将代码改成老师的代码,现在可以运行了。这是什么原因?
select case e.link text
                       case "今年兵役期满人员“
                           table("人员信息”).filer =  "到期日期 <= #" & new Date(Date.Today.Year,12,31) & "#"
                             maintable = tables("人员信息“)
                        end select


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


加好友 发短信
等级:幼狐 帖子:153 积分:1138 威望:0 精华:0 注册:2016/5/15 21:50:00
  发帖心情 Post By:2016/10/28 9:59:00 [显示全部帖子]

 代码: "到期日期 <= #" & new Date(Date.Today.Year,12,31) & "#"与 "到期时间<= #12/31/data.today.year#有什么区别?

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


加好友 发短信
等级:幼狐 帖子:153 积分:1138 威望:0 精华:0 注册:2016/5/15 21:50:00
  发帖心情 Post By:2016/10/28 11:36:00 [显示全部帖子]

可是我把老师的这段代码放在查询表的代码中,电脑提示:运行错误 ”#“附近有语法错误。找了多遍,没找到错误。只好把筛选语句删除,电脑就不提示错误了。查询表的代码是:
dim jb as new sqljointablebuider("兵役期满","人员信息")
jb.c
jb.filter = "到期时间 <= #" & new date(date,today.year,12,31) & "#"
jb.addcols("单位","姓名","到期时间")
jb.build
maintable = tables("兵役期满")

不知错误出在哪儿,请老师指教。

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


加好友 发短信
等级:幼狐 帖子:153 积分:1138 威望:0 精华:0 注册:2016/5/15 21:50:00
  发帖心情 Post By:2016/10/28 11:37:00 [显示全部帖子]


可是我把老师的这段代码放在查询表的代码中,电脑提示:运行错误 ”#“附近有语法错误。找了多遍,没找到错误。只好把筛选语句删除,电脑就不提示错误了。查询表的代码是:
dim jb as new sqljointablebuider("兵役期满","人员信息")
jb.c
jb.filter = "到期时间 <= #" & new date(date,today.year,12,31) & "#"
jb.addcols("单位","姓名","到期时间")
jb.build
maintable = tables("兵役期满")

不知错误出在哪儿,请老师指教

 回到顶部
总数 14 1 2 下一页