以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  打开项目时发现加载SQL查询表卡顿  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=111293)
--  作者：蓝蚂蚁
--  发布时间：2017/12/19 17:28:00
--  打开项目时发现加载SQL查询表卡顿
打开项目时发现加载SQL查询表卡顿，这个项目中有两个SQL查询表，在打开项目时发现有明显的卡顿现象，有没有办法在打开项目时不加载SQL查询表，当打开项目后需要用到查询表时再用窗口按钮进行加载，谢谢老师。
--  作者：有点甜
--  发布时间：2017/12/19 17:49:00
--  

把查询表的sql语句拷贝出来，用代码生成即可

 

http://www.foxtable.com/webhelp/scr/0695.htm

 
--  作者：蓝蚂蚁
--  发布时间：2017/12/20 9:56:00
--  
老师 用你的方法在加载项目时明显快了很多。但问题又来了
没有删除原来的查询表时（即在加载项目时同时加载SQL查询表）有个菜单设计是这样的，click代码：

Forms("高值耗材总使用明细表查询主窗口").Open()
MainTable = Tables("高值耗材总使用明细表按使用明细统计")

现在删除了SQL查询表，把这个菜单设计的click代码改成如下：


If  Tables.Contains("高值耗材总使用明细表按使用明细统计")=False Then
    Dim q As new QueryBuilder
    q.TableName = "高值耗材总使用明细表按使用明细统计"
    q.SelectString = “”【论坛不给发完整的查询语句，所以省略不填】
    q.Build
End If
Forms("高值耗材总使用明细表查询主窗口").Open()
MainTable = Tables("高值耗材总使用明细表按使用明细统计")

发现点击这个菜单按钮没有反应，何解，同时如何解决菜单的问题。
另：近段时间发现在窗口进行切换时，有明显的卡顿，不知是我的代码引起，还是新版本更新的BUG？
--  作者：有点甜
--  发布时间：2017/12/20 10:02:00
--  

我这样测试没问题

 

Dim q As new QueryBuilder
q.TableName = "高值耗材总使用明细表按使用明细统计"
q.SelectString = "select * from {表A}"
q.Build

Forms("高值耗材总使用明细表查询主窗口").Opento("高值耗材总使用明细表按使用明细统计")
MainTable = Tables("高值耗材总使用明细表按使用明细统计")

 

如果窗口切换有卡顿，看看是否你maintablechanged、currentTableChanged事件写有耗时代码了。
--  作者：蓝蚂蚁
--  发布时间：2017/12/20 10:19:00
--  
谢谢老师，菜单的问题按照你的方法解决了，卡顿的问题我再查查，谢谢