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

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

代码问题，用例子说话。

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

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

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

传实例看看。

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

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

注释掉currentchanged等事件的代码。

在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

 

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