代码执行速度慢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

表A与表B关每联，B有做在窗口上的副表上，用

If e.Table.Current Is Nothing Then '如果Current为Nothing

Return '则返回

End If

Dim wz As Integer

Dim dr As DataRow

dr = DataTables("业务登记").Find("[序号2] = '" & e.Table.Current("序号") & "'")

If dr IsNot Nothing Then

wz = Tables("任务查询_table1").FindRow(dr)

If wz >= 0 Then

Tables("任务查询_table1").Position = wz

End If

执行时，效果有时很慢，可否有改善办法，有时要一个一个逐步查，要等好久，有时又一下查到了，不知什么原因？有其它办法没？

主题：代码执行速度慢