在vb编程中怎样编一个"上一个"和"下一个"按钮代码

Question

用两个command按钮,在窗体上编两个"上一个"和"下一个"按钮.能使数据库中的数据在窗体text1.text文本中显示出来

Answer 1

我用了一个Frame控件，在里面添加四个按钮，名称都叫cmdMD，是一个按钮组，每个按钮上有一个图标，移到第1条记录的那个按钮的Index属性设为3，移到上一条记录的那个按钮的Index属性设为2，移到下一条的设为1，移到最后一条的设为0，你也可以变换顺序，当然你这个只需要两个按钮就够了。
代码中adoEmp是我建的一个ADODC控件
for语句那段是我想如果从数据库中取出的数据是NULL的话，就把它设为""，这样方便在窗体上显示。因为窗体上控件的text属性可以是"",但不能是NULL
最后，将各数据输入到窗体相应的控件上，你就把with块里的语句改一下就行。
Private Sub cmdMD_Click(Index As Integer)
Select Case Index
Case Is = 3 '移到第1条记录
If Not adoEmp.Recordset.BOF Then adoEmp.Recordset.MoveFirst
Case Is = 2 '移到上一条记录
If adoEmp.Recordset.RecordCount <> 0 Then
If adoEmp.Recordset.BOF = False Then adoEmp.Recordset.MovePrevious
If adoEmp.Recordset.BOF = True Then adoEmp.Recordset.MoveFirst
End If
Case Is = 1 '移到下一条记录
If adoEmp.Recordset.RecordCount <> 0 Then
If adoEmp.Recordset.EOF = False Then adoEmp.Recordset.MoveNext
If adoEmp.Recordset.EOF = True Then adoEmp.Recordset.MoveLast
End If
Case Is = 0 '移到最后一条记录
If Not adoEmp.Recordset.EOF Then adoEmp.Recordset.MoveLast
End Select
For i = 0 To 6
If adoEmp.Recordset.Fields(i) = "" Then
adoEmp.Recordset.Fields(i) = "Null"
End If
Next i
With adoEmp.Recordset
combo2.Text = .Fields(0).Value
Text3.Text = .Fields(1).Value
Combo3.Text = .Fields(2).Value
Text5.Text = .Fields(3).Value
Text4.Text = .Fields(4).Value
DTPicker1.Value = .Fields(5).Value
Text6.Text = .Fields(6).Value
End With
End Sub

Answer 2

假设 rs（数据集对象，数据集控件都可以） 为 数据集
上一个 按钮的代码：
if not rs.bof then
rs.moveprevious
end if

下一个 按钮的代码：
if not rs.eof then
rs.movenext
end if