Foxtable(狐表)用户栏目专家坐堂 → 甜,帮看一下,加载的时间问题


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

主题:甜,帮看一下,加载的时间问题

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


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
甜,帮看一下,加载的时间问题  发帖心情 Post By:2018/11/13 14:56:00 [只看该作者]

调用表B星期三的数据,我做了一个按钮, 
点一下会自动加载到表A

但加载得比较慢,是一行一行的加载
如果表B的数据多的话,加载时间就会更长
看能不能帮我优化一下?


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar



如果我一段代码写在按钮里面, 一段代码写在datacolchanged事件里面, 这样分开的话,加载数据就很快, 刷的一下就加载出来了。
但是这样分开,会出现错误问题。

thanks again :)
[此贴子已经被作者于2018/11/13 14:56:46编辑过]

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


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

systemready = False
Tables("表A").StopRedraw


 

'这里是本来代码


Tables("表A").ResumeRedraw
Tables("表A").Refresh
systemready = True

[此贴子已经被作者于2018/11/13 15:31:03编辑过]

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


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2018/11/13 15:38:00 [只看该作者]

我的妈呀, 怎么那么快, 像火箭一样蹦出来了。 

甜甜, 棒棒哒 图片点击可在新窗口打开查看

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


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2018/11/13 15:45:00 [只看该作者]

by the way, 这个代码可以广泛使用吗? 有没有使用条件或前提呢?

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


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

以下是引用cyrollin在2018/11/13 15:45:00的发言:
by the way, 这个代码可以广泛使用吗? 有没有使用条件或前提呢?

 

参考

 

http://www.foxtable.com/webhelp/scr/0453.h

 

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

 


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


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2018/11/13 18:01:00 [只看该作者]

现在又遇到一个问题, 当从外部表加载一部分 表A 的数据后, 
调用表B星期三的数据时, 表A的 次数列 不计算,也不显示内容了。 我用SQLFind, 也不行。 

     '      Dim dr22 As DataRow = DataTables("表A").SQLFind("编号 = '" & bh & "' and _Identify < " & dr("_Identify"), "_Identify desc")  '用SQLFind查找,不行? why?

再帮我看看,谢谢!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目33.rar





图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20181113180633.png
图片点击可在新窗口打开查看






[此贴子已经被作者于2018/11/13 18:07:04编辑过]

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


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

比如

 

            Dim dr22 As DataRow = DataTables("表A").SQLFind("编号 = " & bh & " and 日期 is not null and [_Identify] < " & dr("_Identify"), "[_Identify] desc")


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


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2018/11/13 18:28:00 [只看该作者]

这个比如很好使, 我用 select * flom {表A} 查看了一下,发现没有日期为空的数据行啊。 为什么必须要用 and 日期 is not null 这个才能正常运行呢?

thanks for your solution. :)

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


加好友 发短信
等级:超级版主 帖子:110648 积分:563148 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/11/13 20:07:00 [只看该作者]

有的,打开数据库就看到了

 回到顶部