VB6中moveNext、movePrevious在VB.NET中的等效实现方案

你的现有代码用了SqlDataReader，它是只读且只能向前遍历的，没法直接实现上一条、下一条、第一条、最后一条这类导航操作。要实现数据表导航，推荐用DataTable配合BindingSource来做，这是VB.NET里最便捷的实现方式，具体步骤和代码如下：

1. 声明窗体级变量 #

首先在窗体类里声明需要复用的变量，避免每次操作都重新创建：

Private constr As String = "data source=DESKTOP-MDOP24U\GORASHY;initial catalog=test;integrated security=SSPI;"
Private dtWords As DataTable
Private bsWords As BindingSource

2. 加载数据到DataTable #

把数据库中的数据加载到内存中的DataTable，同时用Using语句确保数据库连接、命令等资源自动释放：

Private Sub LoadData()
    dtWords = New DataTable()
    ' 使用Using自动释放资源，避免连接泄漏
    Using con As New SqlConnection(constr)
        Using cmd As New SqlCommand("SELECT * FROM words", con)
            con.Open()
            ' 用SqlDataAdapter直接填充DataTable
            Dim da As New SqlDataAdapter(cmd)
            da.Fill(dtWords)
        End Using
    End Using

    ' 初始化BindingSource并绑定DataTable
    bsWords = New BindingSource()
    bsWords.DataSource = dtWords

    ' 把TextBox绑定到BindingSource的对应字段
    TextBox1.DataBindings.Add("Text", bsWords, "word-no")
    TextBox2.DataBindings.Add("Text", bsWords, "word")
End Sub

3. 实现导航按钮的点击事件 #

给窗体添加四个按钮（比如btnFirst、btnPrevious、btnNext、btnLast），然后分别编写点击事件：

' 第一条记录
Private Sub btnFirst_Click(sender As Object, e As EventArgs) Handles btnFirst.Click
    bsWords.MoveFirst()
End Sub

' 上一条记录
Private Sub btnPrevious_Click(sender As Object, e As EventArgs) Handles btnPrevious.Click
    ' 先判断是否已经在第一条，避免报错
    If bsWords.Position > 0 Then
        bsWords.MovePrevious()
    End If
End Sub

' 下一条记录
Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
    ' 判断是否已经在最后一条
    If bsWords.Position < bsWords.Count - 1 Then
        bsWords.MoveNext()
    End If
End Sub

' 最后一条记录
Private Sub btnLast_Click(sender As Object, e As EventArgs) Handles btnLast.Click
    bsWords.MoveLast()
End Sub

4. 初始化加载数据 #

在窗体的Load事件里调用LoadData方法，确保窗体启动时就加载数据：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    LoadData()
End Sub

额外说明 #

• BindingSource不仅提供了导航方法，还能自动同步绑定控件的数据，不用手动给TextBox赋值，减少代码量。
• 使用Using语句是VB.NET中管理数据库资源的最佳实践，能自动关闭连接、释放资源，避免内存泄漏。
• 如果数据表数据量很大，一次性加载全部数据到内存可能影响性能，这种情况可以考虑分页加载，但对于常规规模的数据表，上面的方案足够高效。

内容的提问来源于stack exchange，提问作者mohamed