假定我正在订单表操作，我们希望在订单表中选定一行时，客户表的光标能够自动定位到该客户，这样我一旦从订单表回到客户表，即可看到刚刚所选订单的客户资料。
为此我们在CurrentChanged事件中设置如下代码：　

If e.Table.Current Is Nothing Then \'如果Current为Nothing
    Return \'则返回
End If
Dim wz As Integer
Dim dr As DataRow
dr = DataTables("客户").Find("[客户ID] = \'" & e.Table.Current("客户ID") & "\'")
If dr IsNot Nothing Then
    wz = Tables("客户").FindRow(dr)
    If wz >= 0 Then
        Tables("客户").Position = wz
    End If
End If

---------------------------

因为是多人可以同时编辑， 所以我在打开客户表的事件里面加上了datatables("客户表").load， \'重新加载客户表， 然后就不可以定位了。 有解决方法吗？