以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]到期提醒出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95866)

--  作者:cd_tdh
--  发布时间:2017/2/7 14:26:00
--  [求助]到期提醒出错

以前都是正确,重装系统出现下列错误:

 

.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2016.7.29.1
错误所在事件:窗口,导航窗口,人员证件,Click
详细错误信息:
该字符串未被识别为有效的 DateTime。有一个从索引 9 处开始的未知字。

click代码如下:

Dim dt  As  Date =  Date.Today.AddDays(90)
 Dim dr As DataRow =  DataTables("人员证件").Find("有效期 <= #" & dt & "#")
 If dr IsNot Nothing  Then
     MessageBox.Show("提示:有证件即将到有效期,请及时办理延期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
     Tables("人员证件").Filter = "有效期 <= #" & dt & "#"
     MainTable = Tables("人员证件")
End If

[此贴子已经被作者于2017/2/7 14:28:26编辑过]

--  作者:有点色
--  发布时间:2017/2/7 14:29:00
--  

beforeOpenProject或者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


--  作者:cd_tdh
--  发布时间:2017/2/7 16:18:00
--  
谢谢老师,没问题了。