excel图表制作：制作具有数据导航功能的用户窗体( 三 ) _知识经验

下面，介绍如何编写命令按钮代码，使记录来回移动。
基本上有两类命令按钮，一类按钮到达记录集的两端即第一条记录和最后一条记录，一类按钮一次移动一条记录。所有的四个命令按钮都做三件事：使正确的记录为当前记录、调用FillTextBoxes过程和调用DisableButtons过程。“移动一条记录”按钮有一个额外的步骤，即决定哪条记录是当前记录。如果是第一条或最后一条记录，需要禁用不同的命令按钮。

Private Sub cmdFirst_Click()
mADORs.MoveFirst
FillTextBoxes
DisableButtons “ButtonFirst”,”ButtonPrev”
End Sub
Private Sub cmdLast_Click()
mADORs.MoveLast
FillTextBoxes
DisableButtons “ButtonLast”,”ButtonNext”
End Sub
Private Sub cmdNext_Click()
mADORs.MoveNext
FillTextBoxes
If mADORs.AbsolutePosition =mADORs.RecordCount Then
DisableButtons “ButtonLast”,”ButtonNext”
Else
DisableButtons
End If
End Sub
Private Sub cmdPrev_Click()
mADORs.MovePrevious
FillTextBoxes
If mADORs.AbsolutePosition = 1 Then
DisableButtons “buttonFirst”,”ButtonPrev”
Else
DisableButtons
End If
End Sub

上述程序代码中，MoveNext方法、MoveFirst方法、MovePrevious方法和MoveLast方法都是Recordset对象的方法。
最终的效果如下图2所示。

图2
【excel图表制作：制作具有数据导航功能的用户窗体】注意，如果你运行这个用户窗体出现错误，检查一个是否在VBE中设置了对Microsoft ActiveXData Objects 2.X Library的引用；或者是否Initialize事件中对数据库的引用路径和名称有误。

excel图表制作：制作具有数据导航功能的用户窗体( 三 )

猜你喜欢