以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  项目启动慢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133722)
--  作者：蓝蚂蚁
--  发布时间：2019/4/18 18:54:00
--  项目启动慢


图片点击可在新窗口打开查看此主题相关图片如下：显目启动慢.jpg
图片点击可在新窗口打开查看

每次打开项目时都是显示图片那个表格，慢的时候要等3分钟左右，这个表格等数据不算大的，项目里有个4万多行等，在启动时一闪就过去里，请问老师到底是什么原因？谢谢
--  作者：蓝蚂蚁
--  发布时间：2019/4/18 18:57:00
--  

AfterOpenProject 代码如下

If User.Type <> UserTypeEnum.Developer
    TableCaptionVisible = False
End If
Forms("背景图窗口").Show


Tables("高值耗材病人使用明细表").Cols("中标号或编号").DropForm = "高值输入中标号填充其他列弹出筛选窗口"

Tables("高值耗材病人使用登记表").Cols("住院号").DropForm = "中联电脑高值耗材使用情况明细弹出窗口"


DataTables("高值耗材病人使用登记表").DataCols("合格证").DefaultFolder = ProjectPath & "AllMyFiles\\植入物合格证Fox位置"  \'图片列中图片的存储位置
DataTables("高值耗材病人使用登记表").DataCols("合格证").SourceFolder= ProjectPath & "AllMyFiles\\植入物合格证"  \'图片列中图片的来源位置


\'----------------
Dim obj As GlobalKeyDown = GlobalKeyDown.getInstance
RegisterHotKey(obj.Handle, 101, KeyModifiers.Control Or KeyModifiers.Shift, Keys.P)
RegisterHotKey(obj.Handle, 102, KeyModifiers.Control Or KeyModifiers.Shift, Keys.Q)
\'-----------------
--  作者：有点甜
--  发布时间：2019/4/18 19:21:00
--  

加载4万多行数据，应该是比较慢的。

 

你试试 按住ctrl不放，输入开发者账号密码，继续按住ctrl不放，点击确定登陆进去，看看耗时多少？

 
--  作者：蓝蚂蚁
--  发布时间：2019/4/18 19:51:00
--  
大概14秒左右  但我再正常启动项目时大概也是16秒左右
--  作者：有点甜
--  发布时间：2019/4/19 10:30:00
--  
以下是引用蓝蚂蚁在2019/4/18 19:51:00的发言：
大概14秒左右  但我再正常启动项目时大概也是16秒左右

 

有时正常，有时不正常？这个意思？

 

现在是否还能正常的16秒进入系统？加载4万行数据，（16-14=2）秒应该是不够的。