Lid |
|
ik heb nu een form gemaakt met een bindingsource(cnnreceptie), dataset(dtsreceptie) en dataadapter(odareceptie) en databasenaam is "receptie". Verder wat tekstvakken enz gemaakt en deze gelinkt via databinding naar de database. dat gaat allemaal goed & bij het starten wordt het eerste record ingeladen & getoond. nu wil ik dus knoppen maken om te browsen tussen mijn records wat dus niet wil lukken.. zoals hieronder heb ik ze nu staan
knop om 1 record terug te gaan:
Private Sub btnvorige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvorige.Click
If BindingContext(Dtsreceptie).Position = 0 Then
MessageBox.Show("Eerste record", "Recepties", MessageBoxButtons.OK)
Else
Me.BindingContext(Dtsreceptie).Position -= 1
End If
End Sub
Private Sub btnvorige_Click (ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles btnvorige .Click If BindingContext(Dtsreceptie).Position = 0 Then MessageBox.Show("Eerste record", "Recepties", MessageBoxButtons.OK) Else Me.BindingContext(Dtsreceptie).Position -= 1
knop om 1 record verder te gaan:
Private Sub btnvolgende_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvolgende.Click
If BindingContext(Dtsreceptie).Position = Dtsreceptie.Receptie.Count - 1 Then
MessageBox.Show("Laatste record", "recepties", MessageBoxButtons.OK)
Else
BindingContext(Dtsreceptie).Position += 1
End If
End Sub
Private Sub btnvolgende_Click (ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles btnvolgende .Click If BindingContext (Dtsreceptie ).Position = Dtsreceptie .Receptie .Count - 1 Then MessageBox.Show("Laatste record", "recepties", MessageBoxButtons.OK) Else BindingContext(Dtsreceptie).Position += 1
de btnvorige geeft wel de melding dat ik bij het eerste record zit(maar geen id of hij ook werkelijk 1 record terug gaat, ik betwijfel het), maar button volgende doet helemaal niets.
|