1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Private Sub Btnprecedent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnprecedent.Click
Me.BindingContext(ods, "vendeurs").Position -= 1
End Sub
Private Sub BtnDernier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDernier.Click
Me.BindingContext(ods, "vendeurs").Position = ods.Tables("vendeurs").Rows.Count
End Sub
Private Sub Btnsuivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsuivant.Click
Me.BindingContext(ods, "vendeurs").Position += 1
End Sub
Private Sub Btnpremier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnpremier.Click
Me.BindingContext(ods, "vendeurs").Position = 0
End Sub |
Partager