我在项目属性中,afteropenproject中写入以下代码:
If Syscmd.Project.Update(False,False) = False Then '如果没有升级
Forms("用户登陆").open()
If _UserName = "" Then
Syscmd.Project.Exit()
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
Forms("左侧导航").open()
Forms("主窗口").open()
MainTable = Tables("zhubiao")
If User.Type <> UserTypeEnum.Developer
TableCaptionVisible = False
End If
fdlcs =DataTables("发电量参数").find( "单位 = '" & _usercompany & "'" ) '放到这里是被添加修改时调用的.
End If
我的win7故障,重新安装了系统,也重新注册了软件,原来运行挺快的,也能正常升级,自从重装了系统,再运行非常慢,估计得40秒,才能出现登录窗口,我把以上标记部分的判断去掉,正常运行,2秒内打开,请老师给分析一下什么原因?谢谢!
[此贴子已经被作者于2018/9/24 14:51:51编辑过]