Dim r As Row = Tables("订单").Current
If r IsNot Nothing Then
Dim po As Integer = Tables("客户").FindRow("客户名称 = " & r("客户名称") & "'")
If po >= 0 Then
Tables("客户").Position = po
End If
End If
如果只是要判断就没有必要定位了
Dim r As Row = Tables("订单").Current
If r IsNot Nothing Then
Dim dr As DataRow = DataTables("客户").Find("客户名称 = " & r("客户名称") & "'")
If dr IsNot Nothing AndAlso dr("某列") = "某某值" Then
'判断后的代码处理'
End If
End If