點擊上 下 按鈕時候改變數組下標即可。
Dim R As Long
Dim Arr()
Private Sub CommandButton1_Click() '查詢按鈕
ReDim Arr(0)
For qji = 2 To qjh '期間查詢從第2行起到最後壹行
If Val(Sheet2.Cells(qji, 3).Value) = qjn Then '如果年號相同查月
If Val(Sheet2.Cells(qji, 4).Value) = qjy Then '如果月號相同查證件
If Sheet2.Cells(qji, 8).Text = txtzjc.Text Then '如果證件相同
Arr(UBound(Arr)) = qji '將查詢到的行保存到數組
ReDim Preserve Arr(UBound(Arr) + 1)
End If
End If
End If
Next
If UBound(Arr) > 0 Then
顯示 (R) '查詢完成後顯示第壹條
Else
MsgBox "沒有結果"
End If
End Sub
Private Sub CommandButton2_Click() '下壹條 按鈕
R = R + 1
If R > UBound(Arr) - 1 Then
MsgBox "已經是最後壹條"
R = R - 1
Else
顯示 (R)
End If
End Sub
Private Sub CommandButton3_Click() '上壹條 按鈕
R = R - 1
If R < 0 Then
MsgBox "已經是第壹條"
R = R + 1
Else
顯示 (R)
End If
End Sub
Function 顯示(N As Long) '顯示函數
R0 = Arr(N) '要顯示的行
txtjsdhc.Enabled = True '激活結算單號文本框
txtjsdhc.Value = Cells(RO, 2).Value '將結算單號賦值給結算單號文本框
lblgze.Caption = Cells(RO, 10).Value '將基礎工資額賦值給標簽
lblgjb.Caption = Cells(RO, 11).Value
lbljjb.Caption = Cells(RO, 12).Value
lbldnb.Caption = Cells(RO, 13).Value
lblyjj.Caption = Cells(RO, 14).Value
lblbwy.Caption = Cells(RO, 15).Value
lblxj.Caption = Cells(RO, 16).Value
txtxmc.Enabled = True '激活姓名文本框
txtxmc.Value = Cells(RO, 7).Value '將姓名列值賦給姓名框
cmdpre.Enabled = True '激活前後瀏覽按鈕
End Function