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

之前图片太大了

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


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

就是这两个提示。

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

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

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

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

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

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

按老师要求，提供代码：

项目事件

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-->