supprimer une ligne de datagridview

Version imprimable

Bonjour,
j'ai une datagridview et je veux supprimer une ligne avec click droit mais le problème que : quand je sélectionne la ligne que je veux il me supprime la ligne en haut c'est la ligne que je sélectionne voici le code

Code:

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
33
34
35
36
37
38
39
 Private Sub InsertRows()
 
        '*** UNE insertion de ligne(s) ne peut se faire qu'en amont d'une ligne ou de la ligne d'une ou plusieurs cellules sélectionnées.
        If DataGridView1.SelectedCells.Count > 0 Then
            '*** dtFact représente une table de donnée et charge en mémoire les données de la table choisie du Dataset.
            '*** drFact représente une ligne de données du DataTable.
            '*** l'objet DataRow, avec ses propriétés et méthodes permet de récupérer, évaluer, insérer, supprimer et mettre à jour les valeurs du DataTable.
            '*** aireSelectionnee est un tableau qui contiendra la liste de toutes les cellules sélectionnées.
 
            Dim dtFact As DataTable = ds.Tables("DET_DEVIS")
            Dim drFact As DataRow
            Dim aireSelectionnee As ArrayList = New ArrayList
 
            For Each cell As DataGridViewCell In DataGridView1.SelectedCells
                aireSelectionnee.Add(cell.RowIndex)
            Next
 
            '*** TRI cette liste, obtient le n° de la première et de la dernière ligne de la sélection.
            '*** EN cas de sélection multiple de cellules ou de lignes, par choix arbitraire, 
            '***    l'insertion se fera avant la ligne de moindre rang de la sélection et le nombre de lignes insérées
            '***    correspondra au nombre de lignes sélectionnée. 
            Dim premRowselect As Integer
            Dim derRowSelect As Integer
            aireSelectionnee.Sort()
            premRowselect = CInt(aireSelectionnee(0))
            derRowSelect = CInt(aireSelectionnee(aireSelectionnee.Count - 1))
            Dim nbre As Integer = 1
            For nbre = 1 To derRowSelect + 1 - premRowselect
                drFact = dtFact.NewRow()
                dtFact.Rows.InsertAt(drFact, premRowselect)
            Next
            '*** Efface la sélection en cours pour sélectionner uniquement la première des lignes insérées.
            DataGridView1.ClearSelection()
            DataGridView1.Rows(premRowselect).Selected = True
 
        End If
merci d'avance
 
    End Sub

15/04/2011, 17h13
Graffito

Est-ce le bon code (InsertRows()) ?

si oui, où est l'instruction qui supprime la row ?

Bonjour,
voici l code de supprission:

Code:

1
2
3
4
5
6
7
8
9
10
11
Try
            If Me.DataGridView1.GetCellCount(DataGridViewElementStates.Selected) > 0 Then
                Dim indexLigne As Integer = (DataGridView1.CurrentRow.Index Or DataGridView1.CurrentCell.RowIndex)
                DataGridView1.Rows(indexLigne).Selected = True
                DataGridView1.Rows.Remove(DataGridView1.Rows(indexLigne))
            Else
                MessageBox.Show("Veuillez effectuer une sélection.")
            End If
        Catch Ex As Exception
            MessageBox.Show(Ex.Message)
        End Try

et voici lo code qui supprime apartir de ToolStripMenuItem:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 Private Sub SupprimerLaLigneToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SupprimerLaLigneToolStripMenuItem.Click
        DeleteRows()
        Dim i As Integer = Me.DataGridView1.CurrentRow.Index
        Try
            cmd = New SqlCommand("delete from DET_DEVIS where DEV_DET_ID=" & Me.DataGridView1.Item("DEV_DET_ID", i).Value & "", con)
            con.Open()
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox("exception :" & ex.Message)
        End Try
        con.Close()
    End Sub

Merci d'avance