- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]以开发者登录开发版后，程序运行异常 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93599)
-- 发布时间：2016/12/2 9:17:00
-- [求助]以开发者登录开发版后，程序运行异常
以开发者登录开发版后，程序运行异常。
-- 发布时间：2016/12/2 9:23:00
-- 回复：（pladic）[求助]以开发者登录开发版后，程序运...
-- 发布时间：2016/12/2 9:45:00
--
上传附件：http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
-- 发布时间：2016/12/2 11:44:00
-- 回复：（有点蓝）上传附件：http://foxtable.com/bbs/...
之前图片太大了
此主题相关图片如下：img_20161202_090605_副本_副本.jpg
此主题相关图片如下：img_20161202_090629-s2.jpg
就是这两个提示。
不知能否找到有效的解决办法。
今天上午试了3次，都没正常登录。昨天几次就都正常。
好像输入密码后，显示进度条之后，如果能很快打开项目表，就是正常的。如果进度条消失后，要等一段时间，就会报错。
-- 发布时间：2016/12/2 11:53:00
--
第一个图片的出错事件代码发上来看看
-- 发布时间：2016/12/2 11:57:00
--
代码编写后没有报错，可以正常运行。而且登录后不报错，就能正常使用。
登录后报错，也能操作项目中的表，但不能使用和设计窗口。
第4次终于正常进入了！人品还行
-- 发布时间：2016/12/2 11:59:00
--
想解决问题麻烦上传代码看看。99.999%的程序员都不会认为自己的代码有问题的。但是往往99.99999%的问题都在代码里
-- 发布时间：2016/12/2 17:34:00
--
按老师要求，提供代码：
项目事件
AfterOpenProject
If Syscmd.Project.Update(False,True) = False Then \'如果没有升级
Tables("订户信息表").Sort="地址,单位,收刊人"
Tables("订款信息表").Sort="订户编号"
Tables("发票信息表").Sort="发票本号,发票号"
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-->
-- 发布时间：2016/12/2 17:37:00
--
联系客服核对一下激活码
-- 发布时间：2016/12/2 19:14:00
-- 回复：（有点蓝）联系客服核对一下激活码