[分享]再谈系统日期格式冲突 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：beforeloadinnertable15.png

此主题相关图片如下：beforeloadinnertable13.png

另贴出代码BeforeLoadInnerTable:

msgbox(Date.Today)

Vars.Add("ddd",Gettype(Boolean),False)

If Vars("ddd") = False Then

Dim cd As System.Globalization.DateTimeFormatInfo = System.Globalization.DateTimeFormatInfo.CurrentInfo

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

Vars("ddd") = True

End If

msgbox(Date.Today)

'加载指定日期内的数据

Select Case e.DataTableName

Case "hc","fybxd"

e.Filter = "[rq] >= #" & e.User.ExtendedValues("起始日期") & "# And [rq] <= #" & e.User.ExtendedValues("结束日期") & "#"

'MessageBox.Show(CStr(e.User.ExtendedValues("起始日期")).Split(" ")(0) & " " & CStr(e.User.ExtendedValues("结束日期")).Split(" ")(0))

'MessageBox.Show(CDate(CStr(e.User.ExtendedValues("起始日期")).Split(" ")(0)) & " " & CDate(CStr(e.User.ExtendedValues("结束日期")).Split(" ")(0)))

'Return

Case "bmwz"

e.Filter = "[gmrq] >= #" & e.User.ExtendedValues("起始日期") & "# And [gmrq] <= #" & e.User.ExtendedValues("结束日期") & "#"

Case "bc"

e.Filter = "[jhrq] >= #" & e.User.ExtendedValues("起始日期") & "# And [jhrq] <= #" & e.User.ExtendedValues("结束日期") & "#"

Case "劳务登记","交易明细"

e.Filter = "[日期] >= #" & e.User.ExtendedValues("起始日期") & "# And [日期] <= #" & e.User.ExtendedValues("结束日期") & "#"

End Select

你只是设置长日期，没有设置短日期

msgbox(Date.Today)

Vars.Add("ddd",Gettype(Boolean),False)

If Vars("ddd") = False Then

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

Vars("ddd") = True

End If

msgbox(Date.Today)

此主题相关图片如下：beforeloadinnertable16.png

BeforeOpenProject事件

msgbox(Date.Today)

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

msgbox(Date.Today)

我个人认为这段代码放在BeforeOpenProject事件中较好:

1.打开项目前就校对好日期格式;

2.不用修改系统日期格式;

3.不用重启应用程序.

[此贴子已经被作者于2017/3/13 11:10:52编辑过]

主题：[分享]再谈系统日期格式冲突