Regel aanklikken in datagridview en dan openen formulier

[barnekip]

Beste Gebruikers,

Ik ben bezig met een programma te maken en loop tegen het volgende probleem aan.

Op een formulier heb ik een datagridview. Deze regels zijn afgeschermd voor directe wijzigingen en mijn bedoeling is dat wanneer een bepaalde regel wordt (dubbel)aangeklikt deze informatie wordt weergegeven in een ander formulier waar dit kan worden aangepast.

Het andere formulier bevat diverse textboxen die gekoppeld zijn aan de database. Het is dus de bedoeling dat deze textboxen worden gevuld met de data uit de regel die in de datagridview is aangeklikt.
In dit formulier kan de gebruiker dan desgewenst de data wijzigen en opslaan.

Ik hoop dat iemand mij kan helpen om dit te verwezenlijken!

 

[barnekip]

Beste Mensen,

Het is mij inmiddels zelf gelukt!

Hieronder de code, wellicht heeft iemand anders er nog wat aan of kan iemand er nog op schieten hoe het makkelijker kan. Het lijkt mij namelijk vrij omslachtig en wellicht kan het makkelijker.

Private Sub ContactenDataGridView_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles ContactenDataGridView.CellMouseDoubleClick
'deze sub zorgt ervoor dat wanneer men een regel aanklikt in de datagridview deze wordt geopend in form2 en de velden worden gevuld met de velden uit de datagrid
Form2.Show()
Form2.MesterCheckBox.Checked = False
Form2.SlachterijCheckBox.Checked = False
Form2.LeverancierCheckBox.Checked = False
Form2.GeblokkeerdCheckBox.Checked = False

'deze regels geven de variabelen de waarde van de regel die wordt aangeklikt en de vaste waarde van alle cellen (cell0 t/m .....)
Dim column0 As Object = ContactenDataGridView.Rows(e.RowIndex).Cells(0).Value
Dim column1 As Object = ContactenDataGridView.Rows(e.RowIndex).Cells(1).Value
Dim column2 As Object = ContactenDataGridView.Rows(e.RowIndex).Cells(2).Value
Dim column3 As Object = ContactenDataGridView.Rows(e.RowIndex).Cells(3).Value
Dim column4 As Object = ContactenDataGridView.Rows(e.RowIndex).Cells(4).Value
Dim column5 As Object = ContactenDataGridView.Rows(e.RowIndex).Cells(5).Value
Dim column6 As Object = ContactenDataGridView.Rows(e.RowIndex).Cells(6).Value
Dim column7 As Object = ContactenDataGridView.Rows(e.RowIndex).Cells(7).Value
Dim column8 As Object = ContactenDataGridView.Rows(e.RowIndex).Cells(8).Value
Dim column9 As Object = ContactenDataGridView.Rows(e.RowIndex).Cells(9).Value
Dim column10 As Object = ContactenDataGridView.Rows(e.RowIndex).Cells(10).Value
Dim column11 As Object = ContactenDataGridView.Rows(e.RowIndex).Cells(11).Value
Dim column12 As Object = ContactenDataGridView.Rows(e.RowIndex).Cells(12).Value

'hier worden de gevonden waarden in de datagrid toegekend aan de tekstboxen in form 2
Form2.OrganisatieIDTextBox.Text = Convert.ToString(column0)
Form2.NaamTextBox.Text = Convert.ToString(column1)
Form2.AdresTextBox.Text = Convert.ToString(column2)
Form2.PostcodeTextBox.Text = Convert.ToString(column3)
Form2.PlaatsTextBox.Text = Convert.ToString(column4)
Form2.TelefoonTextBox.Text = Convert.ToString(column5)
Form2.MobielTextBox.Text = Convert.ToString(column6)
Form2.MailTextBox.Text = Convert.ToString(column7)
Form2.HomepageTextBox.Text = Convert.ToString(column8)
'de checkboxen hebben soms een DBNull en daarom moet dit eerst bepaald worden. Als de waarde niet DBNull is dan wordt de checkbox aangevinkt

If Not IsDBNull(column9) Then
Form2.MesterCheckBox.Checked = True
Else
Form2.MesterCheckBox.Checked = False

End If


If Not IsDBNull(column10) Then
Form2.SlachterijCheckBox.Checked = True
Else
Form2.SlachterijCheckBox.Checked = False

End If

If Not IsDBNull(column11) Then
Form2.LeverancierCheckBox.Checked = True
Else
Form2.LeverancierCheckBox.Checked = False

End If
If Not IsDBNull(column12) Then
Form2.GeblokkeerdCheckBox.Checked = True
Else
Form2.GeblokkeerdCheckBox.Checked = False

End If

End Sub