1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
|
Public Class Form2
Public rIndex As Integer 'ici on déclare une variable qui stockera l'index de la ligne selectionnée
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim oSim As New SimFunction 'je fais appel à une classe où mes fonctions les plus utilisées se trouvent
Dim str As String = "SELECT * FROM matable WHERE codeMatiere='ASME"
Dim oCmd As New SqlCommand(str, oSim.connectDb)
Dim oData As New DataTable
Dim oAdapt As New SqlDataAdapter
oCmd.ExecuteNonQuery()
oAdapt.SelectCommand = oCmd
oAdapt.Fill(oData)
DataGridView1.DataSource = oData
End Sub
Private Sub DataGridView1_RowHeaderMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.RowHeaderMouseClick
'ici c'est quand tu cliques sur l'entête d'une ligne de ton datagridview (celle qui t'intéresse dans ton cas)
rIndex = e.RowIndex
If MsgBox("Voulez-vous exporter cette ligne ?", vbYesNo) = vbYes Then
Dim val1 As String = DataGridView1.Rows(rIndex).Cells(1).Value ' ici tu vas récupérer la valeur de la 2eme colonnes de la ligne sur laquelle tu as cliqué pour changer de colonne, tu modifies le paramètre de Cells. (on démarre de 0 -> x)
'ensuite arrivé à ce point
'tu effectues le traitement pour l'exportation
End If
End Sub
End Class |
Partager