主题：目录树提示错误

 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

函数【调整计划筛选目录树NodeMouseDoubleClick事件】

 

Filter = "rq >= #" & d1 & "And rq <= #" & d2 & "#"

 

改成

 

Filter = "rq >= #" & d1 & "# And rq <= #" & d2 & "#"

 

全部相同的内容，都要改。