December 2002
Beginner to intermediate
432 pages
10h 10m
English
Next let’s fill in the code for the NavButtons event procedure. The code appears as follows:
Private Sub NavButtons(ByVal sender As Object, ByVal e As EventArgs) Dim intNewRow As Integer Try Me.ParentForm.BindingContext(mDataSet, _ mintBoundTable).EndCurrentEdit() intNewRow = Me.ParentForm.BindingContext(Me).Position Select Case CType(sender, Button).Name Case "cmdFirst" intNewRow = 0 Case "cmdPrevious" If intNewRow > 1 Then itNewRow -= 1 Else intNewRow = 0 End If Case "cmdNext" If intNewRow < _ mDataSet.Tables(mintBoundTable).Rows.Count - 1 Then intNewRow += 1 Else intNewRow = _ mDataSet.Tables(mintBoundTable).Rows.Count - 1 End If Case "cmdLast" intNewRow = mDataSet.Tables(mintBoundTable).Rows.Count - 1 End Select ...
Read now
Unlock full access