主题：[求助]系统日期格式冲突解决方案

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


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

因为你电脑的日期格式设置成这样的，你可以调整你电脑日期的格式

 

可以用代码修改，也可以直接在电脑上设置

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=82970&replyID=574979&skin=1

 

http://jingyan.baidu.com/article/647f0115925aee7f2148a8b5.html

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

 现在，可以先改成

 

Cdate(e.user.ExtendedValues("起始日期").split(" ")(0))

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

看2楼吧，改一下。或者改成不要加Cdate

 

用2楼的第二种方法改后重启系统后，正常了。非常感谢！

那一个即将交付使用的项目如何避免这种情况的发生呢？

全局代码，http://www.foxtable.com/webhelp/scr/1842.htm

 

<DllImport("kernel32.dll", EntryPoint := "GetSystemDefaultLCID")> _
Public Function GetSystemDefaultLCID() As Integer
End Function
<DllImport("kernel32.dll", EntryPoint := "SetLocaleInfoA")> _
Public Function SetLocaleInfo(Locale As Integer, LCType As Integer, lpLCData As String) As Integer
End Function
Public Const LOCALE_SLONGDATE As Integer = &H20
Public Const LOCALE_SSHORTDATE As Integer = &H1f
Public Const LOCALE_STIME As Integer = &H1003

 

beforeOpenProject事件代码

 

Dim x As Integer = GetSystemDefaultLCID()
SetLocaleInfo(x, LOCALE_STIME, "HH:mm:ss") '时间格式 
SetLocaleInfo(x, LOCALE_SSHORTDATE, "yyyy-MM-dd") '短日期格式   
SetLocaleInfo(x, LOCALE_SLONGDATE, "yyyy-MM-dd") '长日期格式
'msgbox(Date.now)

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