1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click
'On recupere les valeur de la ligne selectionnée dans un DataGridView
Try
Dim Maligne As Integer = DataGridView1.CurrentRow.Index ' On recupère la ligne
LecodeCli = Trim(DataGridView1.Item(0, Maligne).Value) ' Le codeCli
LenomCli= Trim(DataGridView1.Item(1, Maligne).Value) ' Le nomCli
Lasociete= Trim(DataGridView1.Item(2, Maligne).Value) ' La societe
Ladresse= Trim(DataGridView1.Item(3, Maligne).Value) ' Le adresse
Laville= Trim(DataGridView1.Item(4, Maligne).Value) ' La ville
Catch
MsgBox(Err.Description)
Finally
End Try
End Sub |
Partager