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

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

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

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

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

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

在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个表

就是这个原因造成的速度很度

把这段代码注释后，窗口中的其他表就不会与这个表联动了，怎么能解决这个问题呀？不仅加载速度慢，而且从10换到11行就会类似于7楼说的情况

写到click事件。 就不会联动了，一个窗口中有表，都不会联动了，还有什么办法吗

能不能在窗口中添加一个按钮，实现联动