下一记录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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
    If dq <> t.Position + 1 Then
        For i As Integer = 0 To dq
            If t.Rows(i).Checked = True Then
                t.Position = i
                Exit For
            End If
        Next
    End If
Else
    t.position = t.position +1
End If

主题：下一记录