各位老师，我刚刚学习狐表，建立了一个窗口，建立了个查询功能，想请老师把我这个代码改成可以循环查找，谢谢，自己按照实例改了好多次，都出问题。

Dim de As WinForm.TextBox = e.Form.Controls("yh")
Dim ar As String = de.Value
Dim r1 As DataRow = DataTables("维修单").Find("用户电话  = \'"  & ar & " \'" )
If r1 IsNot Nothing Then
    Dim r2 As String = Tables("维修单").FindRow(r1)
    If r2 >= 0 Then   \'如果找到符合条件的行
        Tables("维修单").Position = r2  \'则选择该行
    End If
End If

参考，示例二

http://www.foxtable.com/help/topics/0552.htm

 出现什么问题？

Dim de As WinForm.TextBox = e.Form.Controls("yh")
Dim ar As String = de.Value
With Tables("维修单")
    Dim r As Integer
    r = .FindRow("用户电话  = \'"  & ar & " \'", .Position+1, True)
    If r > - 1 Then \'如果找到符合条件的行  
        .Position = r  \'则选择该行
    End If
End With

谢谢老师，学习了，我刚刚开始接触编程，是我把东西想复杂了，自己转不过弯来了，我当时是这样操作的：

Dim de As WinForm.TextBox = e.Form.Controls("yh")
Dim ar As String = de.Value
With Tables("维修单")
    Dim r1 As DataRow = DataTables("维修单").Find("用户电话  = \'"  & ar & " \'" )  \'在仓库表中找到输入内容
    If r1 IsNot Nothing Then
        Dim r As Integer
        r = .FindRow("r1", .Position + 1, True ) \'从当前行的下一行开始查找
        If r >= 0 Then \'如果找到的话
            .Position = r \'定位到找到的行.
        End If
    End If

 End With

报错，然后再改：

Dim de As WinForm.TextBox = e.Form.Controls("yh")
Dim ar As String = de.Value
With Tables("维修单")
    Dim r1 As DataRow = DataTables("维修单").Find("用户电话  = \'"  & ar & " \'" )  \'在仓库表中找到输入内容
    If r1 IsNot Nothing Then
        Dim r As Integer
        r = .FindRow("用户电话", .Position + 1, True ) \'从当前行的下一行开始查找
        If r >= 0 Then \'如果找到的话
            .Position = r \'定位到找到的行.
        End If
    End If
End With

还是报错，结果自己就晕了。谢谢老师给的解答