If mrc.EOF = False Then
mrc.MoveFirst
Call viewData
myBookmark = mrc.Bookmark
Else
MsgBox "没有纪录?quot;, vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
End Sub
Public Sub viewData()
comboExamtype.Text = mrc!exam_No
comboClassno.Text = mrc!class_No
comboSID.Text = mrc!student_ID
comboCourse.Text = mrc!course_Name
txtName.Text = mrc!student_Name
txtResult.Text = mrc!result
End Sub
Private Sub lastCommand_Click()
mrc.MoveLast
Call viewData
End Sub
Private Sub nextCommand_Click()
mrc.MoveNext
If mrc.EOF Then
mrc.MoveFirst
End If
Call viewData
End Sub
Private Sub previousCommand_Click()
mrc.MovePrevious
If mrc.BOF Then
mrc.MoveLast
End If
Call viewData
End Sub
Private Sub updateCommand_Click()
Dim MsgText As String
<< 上一页 [61] [62] [63] [64] [65] [66] [67] [68] [69] [70] ... 下一页 >>