示例三

上面的例子提到，Table、Row、Col都有对应的属性，用于返回其所属的DataTable、DataRow、DataCol。
但是却不可能反过来操作，因为一个DataTable，可能对应有多个Table。
不过通过Table的FindRow方法，我们可以获得某一个DataRow在Table中的位置。
例如我们希望在订单表中，将光标定位到最近一次订购PD01的行上：

Dim dr As DataRow
Dim po As Integer
dr = DataTables("订单").Find("产品 = \'PD01\'","日期 Desc") \'找出最后一次订购PD01产品的DataRow
po = Tables("订单").FindRow(dr)\'找出该DataRow在Table中的位置
If po >= 0 Then \'如果找到
    Tables("订单").Position = po \'选定
End If

因为Table可能会进行筛选，所以一个DataRow可能不会出现在Table中，此时FidnRow方法会返回-1，表示没有找到指定的DataRow。

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

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
EndIf

这种在不同表之间联动的技巧应该掌握，也许你觉得通过关联，不就可以在订单表中以关联表的形式显示客户信息吗？
但是：
1、有的时候我们并不希望建立太多的关联。
2、即使建立了关联，我们也可能关闭了Foxtable的双向关联特性，这样就无法以关联表的形式查看父表数据了。

示例四

其实Table也有Find方法，不过Table的Find方法是根据内容查找，而不是根据表达式来查询，返回的是行的位置。

例如：

With CurrentTable
    Dim r As Integer
    r = .Find("PD01", 0, "产品", False, False, True)
    Ifr > - 1 Then \'如果找到符合条件的行
        .Position = r
    End If
End With

Table的Find方法功能较弱，但是使用简单，通常用于进行简单的查找和定位。
Table还有一个FidRow方法，可以使用表达式进行查找，例如订单表的公司名称列中，查找包括“湛江”二字的单位：

With Tables("订单")
    Dim r As Integer
    r = .FindRow("[公司名称] Like \'*湛江*\'", .Position + 1, True ) \'从当前行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r\'定位到找到的行。
    End If
End With

显然Table的Find和FindRow方法的查找结果，会受筛选的影响，因为作为Table的方法，只是在可见的行中进行查找； 此外因为没有排序参数，这两个方法无法按照特定的顺序进行查找，只能从上往下地顺序查找。
相对来说，DataTable的Find方法则要强大很多，不仅可以用表达式查询，有排序参数，还可以指定返回第几个符合条件的行，而且可以不受筛选的影响，只要有符合条件的行，始终都能找出来。
一些复杂的查找，用Table的Find和FindRow方法是无法实现的，我们可以先用DataTable的Find方法，找出符合条件的DataRow，让后利用Table的FindRow方法 ，找出该DataRow在Table中的位置。
例如我们希望定位到客户CS01第二次订购PD01产品的行：

Dim dr As DataRow
Dim Index As Integer
dr = DataTables("订单").Find("客户 = \'CS01\' And 产品 = \'PD01\'","日期",1)
Index = Tables("订单").FindRow(dr)
If Index > 0 Then
    Tables("订单").Position = Index
End If

示例五

除非需要定位 到符合条件的行，否则是不需要使用Table的Find和FindRow方法的。

例如希望在订单表输入产品编号，能够从产品表提取该产品的名称、型号、规格，自动输入到订单表的相关列中。
为实现此目的,可在订单表的DataColChanged事件中输入如下代码：

If e.DataCol.Name ="产品编号" Then \'发生变化的是产品名称吗?
    \'在产品表找出该产品
    Dim dr As DataRow = DataTables("产品").Find("编号 = " & "\'" & e.DataRow("产品编号") & "\'" )
    If dr IsNot Nothing\'如果找到,则设置各列内容
        e.DataRow("品名")= dr("品名")
        e.DataRow("型号")= dr("型号")
        e.DataRow("规格")= dr("规格")
    End If
EndIf

在上面的代码中，我们是在DataTable中查找所输入编号的产品，这是显然的， 首先我们只是引用数据，并不需要定位，其次如果在Table中查找，一旦Table进行了筛选，而你输入的产品编号恰好不符合筛选条件，那么就无法实现自动输入。