以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]项目无法启动会跟哪里代码有关呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100430)
--  作者：浙江仔
--  发布时间：2017/5/11 11:00:00
--  [求助]项目无法启动会跟哪里代码有关呢？


安装新版开发版，发现项目启动不了了

LoadUserSetting加入调试代码，都能执行


查找AfterOpenProject


代码如下：

    Vars("TDate")=Today.Date

   

    Output.Logs.Clear()

 

    Dim x As Integer = GetSystem DefaultLCID()

    SetLocaleInfo(x, LOCALE_STIME, "HH:mm:ss") \'时间格式

    SetLocaleInfo(x, LOCALE_SSHORTDATE, "yyyy-MM-dd") \'短日期格式

    SetLocaleInfo(x, LOCALE_SLONGDATE, "yyyy-MM-dd") \'长日期格式


打开项目属性窗口，点确定后，项目也会自动退出，没有任何提示

不知道哪里出现了问题

[此贴子已经被作者于2017/5/11 11:02:53编辑过]
--  作者：浙江仔
--  发布时间：2017/5/11 11:05:00
--  
开发者和管理员账号无法启动，在打开窗口前推出
其它账号能打开
--  作者：有点色
--  发布时间：2017/5/11 11:07:00
--  

 不要用这个方法，换种方式

 

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
--  作者：浙江仔
--  发布时间：2017/5/11 14:54:00
--  
发现问题了，我把项目升级连接地址域名写错了，导致出错，自动关闭