点击下载此附件

Private Sub Command29_Click()
    On Error Resume Next
    '最前
    Me.Combo3.SetFocus
    Me.Combo3.ListIndex = 0
    Me.Recalc
End Sub
Private Sub Command30_Click()
    On Error Resume Next
    '前一
    Me.Combo3.SetFocus
    Me.Combo3.ListIndex = Me.Combo3.ListIndex - 1
End Sub
Private Sub Command31_Click()
    On Error Resume Next
    '后一
    DoCmd.GoToControl "Combo3"
    Me.Combo3.ListIndex = Me.Combo3.ListIndex + 1
End Sub
Private Sub Command32_Click()
    On Error Resume Next
    '最后
    DoCmd.GoToControl "Combo3"
    Me.Combo3.ListIndex = Me.Combo3.ListCount - 1
End Sub