主题：[求助]以开发者登录开发版后，程序运行异常

以开发者登录开发版后，程序运行异常。

附图。

上传附件：http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

之前图片太大了

此主题相关图片如下：img_20161202_090605_副本_副本.jpg


此主题相关图片如下：img_20161202_090629-s2.jpg

就是这两个提示。

 

不知能否找到有效的解决办法。

 

今天上午试了3次，都没正常登录。昨天几次就都正常。

 

好像输入密码后，显示进度条之后，如果能很快打开项目表，就是正常的。如果进度条消失后，要等一段时间，就会报错。

第一个图片的出错事件代码发上来看看

代码编写后没有报错，可以正常运行。而且登录后不报错，就能正常使用。

登录后报错，也能操作项目中的表，但不能使用和设计窗口。

 

第4次终于正常进入了！人品还行

想解决问题麻烦上传代码看看。99.999%的程序员都不会认为自己的代码有问题的。但是往往99.99999%的问题都在代码里

按老师要求，提供代码：

 

项目事件

 

AfterOpenProject

 

If Syscmd.Project.Update(False,True) = False Then '如果没有升级

    Tables("订户信息表").Sort="地址,单位,收刊人"

    Tables("订款信息表").Sort="订户编号"

    Tables("fa piao信息表").Sort="fa piao本号,fa piao号"

    Tables("订户信息表").Cols("单位").DropForm = "级别窗口"

    Tables("订户信息表").Cols("地址").DropForm = "地址窗口-订户表"

    Tables("邮寄信息表").Cols("收件人").DropForm = "地址窗口-邮寄表"

End If

 

SystemIdle

 

With CurrentTable

    Dim Str1 As String = "当前用户: " & User.Name

    Str1 = Str1 & " 表名: " & .Name & " 总行数: "

    Str1 = Str1 & .Rows.Count & " 当前行: " & (.Position + 1)

    StatusBar.Message1 = Str1

End With

 

 

<!--EndFragment-->

联系客服核对一下激活码

周一我找客服核对。