主题：下一记录

Dim t As Table = Tables("学生信息")
Dim rs As List(of Row) = Tables("学生信息").GetCheckedRows
If rs.Count > 0 Then '如果存在符合条件的行
    Dim dq As Integer = t.Position +1
    For i As Integer = dq To t.Rows.Count -1
        If t.Rows(i).Checked = True Then
            t.Position = i
            Exit For
        End If
    Next
Else
    t.position = t.position +1
End If

老师，请问想实现当到了最后一行，要重新从第一条记录找起走如何改？谢谢