- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于任务栏的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=120426)
-- 发布时间：2018/6/15 10:21:00
-- 关于任务栏的问题
老师，我在任务栏中写一个提醒功能，出现一个“表达式包含无效的日期常量“#2018-07-05””的问题，请指教！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
-- 发布时间：2018/6/15 10:28:00
--
Dim rw As WinForm.TopicBar = e.Form.Controls("任务栏")
Dim sy As WinForm.TopicLink = rw.Pages("提醒").Links("保修期到期的产品有")
sy.Text = "30天内保修期到期的产品有共有 " & DataTables("表A").Compute("count(_identify)","保修期 >= #" & date.today & "# and 保修期 <= #" & Date.Today.AddDays(30) &"#") & "个"
-- 发布时间：2018/6/15 11:54:00
--
甜老师，现在又出现个问题。在任务“保修期”topiclinkclick中写入
Select Case e.Link.Name
Case "保修期到期的产品有"
Tables("表A").Filter = "保修期 >= # "& date.today &"and 保修期 <= #" & Date.Today.AddDays(30) & ""
End Select
报错提示为“该字符串未被识别为有效的 DateTime。有一个从索引 11 处开始的未知字”，以前学习中也出现过这种提示，请问该怎么处理？
-- 发布时间：2018/6/15 12:53:00
--
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
-- 发布时间：2018/6/15 14:24:00
-- afteropenproject
甜老师，在afteropenproject中写入该代码，还是报“该字符串未被识别为有效的 DateTime。有一个从索引 11 处开始的未知字”错误
-- 发布时间：2018/6/15 14:43:00
--
Select Case e.Link.Name
Case "保修期到期的产品有"
Tables("表A").Filter = "保修期 >= #"& date.today & "# and 保修期 <= #" & Date.Today.AddDays(30) & "#"
End Select