主题：[求助]什么情况

窗口表

外部数据源

并做分页加载数据

同样加载2000条记录

没下面这条加载时间是0.6秒

有下面这条加载时间是1.4秒

差了近1秒，这个正常吗
e.Form.Controls("txtpagetotal").text = 1 & "/" & .TotalPages

直接写基本上是第一种

如查采取下面这个的话

vars("总页数") = .TotalPages

要放到哪

 

vars("总页数") = .TotalPages

 

放在load前后，都相当于用了

e.Form.Controls("txtpagetotal").text = 1 & "/" & .TotalPages
的时间了

 

放哪呢...

就是afterLoad事件发点时间，其他的直接调用，

 

那还有没有加法，在afterLoad事件上节约时间的办法

 

下一页

With tb.datatable
    If .LoadPage < .TotalPages - 1 Then
        .LoadPage = .LoadPage + 1
        .Load()
    End If
End With

还有翻页的时间为什么比afterLoad的时间长

啊，可能是.TotalPages引起的...

袍哥，翻页是越翻越慢..什么情况

 

.TotalPages 用变量记录了，前页几页0.2，翻30以上后都快到2.5秒了

'数据分页加载

With tb.DataTable
    .LoadFilter = ""
    .LoadTop = Vars("dtLoadTop")
    .LoadPage = 0
    .LoadReverse = True
    .load()
    vars("ckTotalPages") = .TotalPages
    e.Form.Controls("txtpagetotal").text = 1 & "/" & vars("ckTotalPages")  
End With

'下一页

With tb.DataTable
   If .loadpage  < vars("ckTotalPages") - 1 Then
        .loadpage  = .loadpage  + 1
        .Load()
    End If
    e.Form.Controls("txtpagetotal").text = .loadpage  + 1 & "/" & vars("ckTotalPages")
End With

那分页除了加载时快点，翻页不是没优势了..