主题：关于任务栏的问题

老师，我在任务栏中写一个提醒功能，出现一个“表达式包含无效的日期常量“#2018-07-05””的问题，请指教！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

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) &"#") & "个"

甜老师，现在又出现个问题。在任务“保修期”topiclinkclick中写入

Select Case e.Link.Name
    Case "保修期到期的产品有"
        Tables("表A").Filter = "保修期 >= # "& date.today &"and 保修期 <= #" & Date.Today.AddDays(30) & ""
End Select

报错提示为“该字符串未被识别为有效的 DateTime。有一个从索引 11 处开始的未知字”，以前学习中也出现过这种提示，请问该怎么处理？

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

甜老师，在afteropenproject中写入该代码，还是报“该字符串未被识别为有效的 DateTime。有一个从索引 11 处开始的未知字”错误

Select Case e.Link.Name
    Case "保修期到期的产品有"
        Tables("表A").Filter = "保修期 >= #"& date.today & "# and 保修期 <= #" & Date.Today.AddDays(30) & "#"
End Select