主题：日期表达式判断代码

1、改成

tr = DataTables("存货账").Find("[商品名称] = '" & dr("存货名称") & "'and 业务发生日期 is not null and 业务发生日期 <= #" & Date2 & "# ","_SortKey Desc ,_Identify desc")

2、改成短日期，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