Foxtable(狐表)用户栏目专家坐堂 → 项目启动慢


  共有1918人关注过本帖树形打印复制链接

主题:项目启动慢

帅哥哟,离线,有人找我吗?
蓝蚂蚁
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7885 威望:0 精华:0 注册:2016/6/11 11:10:00
项目启动慢  发帖心情 Post By:2019/4/18 18:54:00 [只看该作者]


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

每次打开项目时都是显示图片那个表格,慢的时候要等3分钟左右,这个表格等数据不算大的,项目里有个4万多行等,在启动时一闪就过去里,请问老师到底是什么原因?谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
蓝蚂蚁
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7885 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By: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)
'-----------------


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/18 19:21:00 [只看该作者]

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

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
蓝蚂蚁
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:672 积分:7885 威望:0 精华:0 注册:2016/6/11 11:10:00
  发帖心情 Post By:2019/4/18 19:51:00 [只看该作者]

大概14秒左右  但我再正常启动项目时大概也是16秒左右

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/19 10:30:00 [只看该作者]

以下是引用蓝蚂蚁在2019/4/18 19:51:00的发言:
大概14秒左右  但我再正常启动项目时大概也是16秒左右

 

有时正常,有时不正常?这个意思?

 

现在是否还能正常的16秒进入系统?加载4万行数据,(16-14=2)秒应该是不够的。


 回到顶部