主题：[求助]到期提醒出错

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

.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

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