Foxtable(狐表)用户栏目专家坐堂 → 在窗口中点按钮到下一行速度非常慢


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

主题:在窗口中点按钮到下一行速度非常慢

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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
在窗口中点按钮到下一行速度非常慢  发帖心情 Post By:2016/2/2 18:16:00 [只看该作者]

在窗口中点按钮下行速度非常慢,代码是按帮助中的例子设置的,我看了一下,按下一行时会从第一行开始检索一直到最后一行,而且越往下越慢

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2016/2/2 18:18:00 [只看该作者]

代码问题,用例子说话。

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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2016/2/2 18:19:00 [只看该作者]

With Tables("订单.订单明细")
    .Position = .Position +
1
End
With

这个按钮只有这一行代码,不知道是什么原因


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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2016/2/2 18:24:00 [只看该作者]

主表只有50行数据,有5个关联表,是关联表多的原因吗?我说的越往下越慢是10翻到11行要比从第1行翻到2行慢的多,翻一行得需要2、3分钟,真慢

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


加好友 发短信
等级:六尾狐 帖子:1249 积分:9474 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2016/2/2 19:16:00 [只看该作者]

传实例看看。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/2 19:23:00 [只看该作者]

看看你的currentChanged事件(也就是切换行等事件)是否写有什么耗时的代码。注释掉代码看看是否还慢


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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2016/2/2 19:28:00 [只看该作者]

不知道是什么原因?我想从第10换到第11行,他会从第1行检索到第2行 从第1行检索到第3行 从第1行检索到第4行,以此类推,不知道是什么原因,也没有办法把这个例子给你上传


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/2/2 19:29:00 [只看该作者]

注释掉currentchanged等事件的代码。

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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2016/2/2 19:33:00 [只看该作者]

在currentChanged有这个代码Functions.Execute("联动"),这个代码是在内部函数中

If Tables("汇总表").Current IsNot Nothing Then
    If DataTables.Contains("汇总表_Table1") Then
        Dim Filter As String = "汇总对象 = '" & Tables("汇总表").Current("汇总对象") & "'"
        DataTables("汇总表_table1").LoadFilter = Filter
        DataTables("汇总表_table1").Load
    End If
End If

 


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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2016/2/2 19:34:00 [只看该作者]

DataTables("汇总表_table1")类似此表有5个窗口5个表

 回到顶部
总数 19 1 2 下一页