主题：求一个datarow返回 row的实例

示例三  自己找到了

上面的例子提到，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