Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]日期报错


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

主题：[求助]日期报错
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00 		[求助]日期报错  发帖心情 Post By：2017/3/11 12:53:00 [只看该作者]

图片点击可在新窗口打开查看'加载指定日期内的数据(BeforeLoadInnerTable)

Select Case e.DataTableName
        Case "bc"
        e.Filter = "[jhrq] >=  #" & e.User.ExtendedValues("起始日期") & "# And [jhrq] <= #" & e.User.ExtendedValues("结束日期") & "#"
        MessageBox.Show(e.Filter)
End Select

报错：日期的语法错误 在查询表达式‘[jhrq] >= #1.1.2016# And [jhrq] <= #3.11.2017#' 中。
[此贴子已经被作者于2017/3/11 13:00:12编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/11 14:35:00 [只看该作者]

格式化一下

 

Format(e.User.ExtendedValues("起始日期"),"M/d/yyyy")
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00 		  发帖心情 Post By：2017/3/11 17:32:00 [只看该作者]

Dim d As Date = Date.Today()
Output.Show(d)
Output.Show(Format(d,"MM/dd/yyyy"))

输出结果：
03.11.2017
03.11.2017

为何Format()不起作用？　另外论坛怎么不能上传附件了？
[此贴子已经被作者于2017/3/11 17:33:29编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/11 17:35:00 [只看该作者]

设置项目的全局日期格式也不行么http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=93429

 
 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00 		  发帖心情 Post By：2017/3/11 17:38:00 [只看该作者]

是的，这正是本人以前在论坛发的帖子，用了15楼的代码，也不起作用。
[此贴子已经被作者于2017/3/11 17:40:09编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/11 17:40:00 [只看该作者]

直接改系统的日期格式试试

 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00 		  发帖心情 Post By：2017/3/11 17:42:00 [只看该作者]

直接修改系统日期格式当然可以解决问题的，但这不是通用的办法呀！

 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00 		  发帖心情 Post By：2017/3/11 17:45:00 [只看该作者]

当系统日期格式的分隔符是"-"或"/"时，不报错；是“.”时，就报错。在Ｗin10测试的。

 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00 		  发帖心情 Post By：2017/3/12 11:14:00 [只看该作者]

如何获得一个通用的方法来解决系统日期格式冲突问题，自顶一下。

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/12 20:19:00 [只看该作者]

beforeOpenProject事件， 或者 BeforeLoadInnerTable事件，写下面代码

 

Dim cd As System.Globalization.DateTimeFormatInfo = System.Globalization.DateTimeFormatInfo.CurrentInfo
cd.ShortDatePattern = "yyyy年MM月dd日"
Dim DateInfo As System.Reflection.FieldInfo = cd.Gettype.GetField("generalLongTimePattern", System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.Instance)
If  DateInfo IsNot Nothing Then
    DateInfo.SetValue(cd, "yyyy-MM-dd HH:mm:ss")
End If
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询