主题：跨表定位

 多表统计.table

 CurrentChanged事件

If e.Table.Name = "订单" Then
    Dim pd,cs As String
    pd=e.Table.Current("产品ID")
    cs=e.Table.Current("客户ID")
    Dim p As Integer
   
    p=Tables("产品").FindRow("[产品ID]='" & pd  & "'",0,True)
    If p>=0 Then
        Tables("产品").Position=p
    End If
   
    p=Tables("客户").FindRow("[客户ID]='" & cs & "'",0,True)
    If p>=0 Then
        Tables("客户").Position=p
    End If
End If