主题：代码执行速度慢

试试这样，不行的话，就没办法了。可能是数据量大的原因

If e.Table.Current Is Nothing Then '如果Current为Nothing  
    Return '则返回
End If
Dim wz As Integer
wz = Tables("业务登记").FindRow("[序号2] = '" & e.Table.Current("序号") & "'", 0, False)
If wz >= 0 Then
    Tables("任务查询_table1").Position = wz
End If