note 75851 deleted from function.srand by nlopess

Note Submitter: andrey ---- grid Public Class Form1 Private dtsSchool As New DataSet 'mdb Private dttLeerlingen As New DataTable 'tabellen Private dtrRijen() As DataRow 'overlopen van de rijen Private intRij As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'aanmaken kolom 1 'primaire sleutel --> gegevenstype integer Dim dtcLeerlingnummer As New DataColumn("Leerlingnummer", GetType(Integer)) 'primaire sleutel aanduiden (autonummering, geen nul, uniek) dtcLeerlingnummer.AutoIncrement = True dtcLeerlingnummer.AllowDBNull = False dtcLeerlingnummer.Unique = True 'toevoegen aan datatable dttLeerlingen.Columns.Add(dtcLeerlingnummer) Dim dtcNaam As New DataColumn("Naam", GetType(String)) dtcNaam.MaxLength = "30" dttLeerlingen.Columns.Add(dtcNaam) Dim dtcWoonplaats As New DataColumn("Woonplaats", GetType(String)) dtcWoonplaats.MaxLength = "30" dttLeerlingen.Columns.Add(dtcWoonplaats) 'toevoegen aan dataset dtsSchool.Tables.Add(dttLeerlingen) dttLeerlingen.TableName = "tblLeerlingen" dtgLeerlingen.DataSource = dtsSchool.Tables.Item("tblLeerlingen") End Sub Private Sub btnToevoegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToevoegen.Click Dim dtrNieuweRij As DataRow dtrNieuweRij = dttLeerlingen.NewRow dtrNieuweRij("naam") = txtNaam.Text dtrNieuweRij("Woonplaats") = txtWoonplaats.Text 'toevoegen dttLeerlingen.Rows.Add(dtrNieuweRij) End Sub Private Sub dtgLeerlingen_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dtgLeerlingen.CellClick Dim strNaam, strWoonplaats As String strNaam = dtgLeerlingen.CurrentRow.Cells.Item("naam").Value strWoonplaats = dtgLeerlingen.CurrentRow.Cells.Item("woonplaats").Value txtNaamWoonplaats.Text = strNaam & " uit " & strWoonplaats End Sub Private Sub btnEerste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEerste.Click intRij = 0 laden() End Sub Private Sub btnVolgende_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVolgende.Click intRij += 1 laden() End Sub Private Sub btnLaatste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLaatste.Click intRij = dtrRijen.GetUpperBound(0) laden() End Sub Private Sub btnvorige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvorige.Click intRij -= 1 laden() End Sub Private Sub laden() dtrRijen = dttLeerlingen.Select lblnummer.Text = dtrRijen(intRij).Item("Leerlingnummer") lblnaam.Text = dtrRijen(intRij).Item("Naam") lbladres.Text = dtrRijen(intRij).Item("Woonplaats") End Sub End Class