日期表达式判断代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 日期表达式判断代码

共有2005人关注过本帖树形打印复制链接主题：日期表达式判断代码

L88919138

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：724 积分：6913 威望：0 精华：0 注册：2012/3/1 7:20:00

日期表达式判断代码 发帖心情

Post By：2017/11/24 8:02:00 [只看该作者]

Dim Date2 As String = Date.Today

tr = DataTables("存货账").Find("[商品名称] = '" & dr("存货名称") & "'and 业务发生日期 is not null and 业务发生日期 <= '" & Date2 & "' ","_SortKey Desc ,_Identify desc")

系统提示错误

.NET Framework 版本：2.0.50727.3643

Foxtable 版本：2017.10.26.1

错误所在事件：自定义函数通用存货账重算

详细错误信息：

调用的目标发生了异常。

无法在 System.DateTime 和 System.String 上执行“<=”操作。

这个表达式要如何修改

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/24 8:54:00 [只看该作者]

1、改成

tr = DataTables("存货账").Find("[商品名称] = '" & dr("存货名称") & "'and 业务发生日期 is not null and 业务发生日期 <= #" & Date2 & "# ","_SortKey Desc ,_Identify desc")

2、改成短日期，afterOpenProject事件

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