[VB 2005] Supprimer toutes les lignes d'un DataGridView

**Bob Langlade** · 25/01/2006, 15h02

Bonjour,

Je n'ai pas trouvé de méthode pour supprimer toutes les lignes d'un DataGridView alors j'en ai écrit une, qui est malheureusement très lente à l'exécution.

Les lignes du DataGridView sont créées en obtenant les données d'un Serveur SQL 2000 avec un objet SQLDataReader.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Private Sub ResetDataGridView(ByRef GridView As DataGridView)
         With GridView
            Dim Lignes As Integer = .Rows.Count
            For i As Integer = Lignes - 1 To 0 Step -1
                .Rows.RemoveAt(i)
            Next
        End With
     End Sub

Les temps d'exécution sur un AMD 64 3000+ sont les suivants :

Pour 20 lignes, chargemement : 0.30 s, suppression : 0,125 s ;
Pour 117 lignes : 0,34 s et 1,69 s ;
Pour 221 lignes : 0,48 s et 5,70 s ;
Pour 1118 lignes : 1,22 s et 153,70 s.

Il doit certainement y avoir une meilleur façon de procéder.

**bidou** · 25/01/2006, 15h32

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.GridView .DataSource = Nothing

ne convient pas ??

**Bob Langlade** · 25/01/2006, 15h51

Non la propriété DataSource est déjà à Nothing puisque j'alimente la DataGridView avec un SQLDataReader:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
        Dim Rdr As SqlDataReader
        Dim Commande As SqlCommand
        Dim Connexion As new SqlConnection (....)
 
        Connexion.Open()
        Dim Client As String = DataGridView1.Item(1, e.RowIndex).Value
        Dim DatePièce As DateTime
        Dim Réf, Désignation
        Dim Montant As Decimal
        Dim Cstring = String.Format("SELECT DO_date, ar_ref, dl_design, dl_montantttc from f_docligne where ct_num = '{0}'", Client)
        Commande = New SqlCommand(Cstring, Connexion)
        Rdr = Commande.ExecuteReader(CommandBehavior.CloseConnection)
        While Rdr.Read
            Try
                DatePièce = Rdr.GetDateTime(0).ToString("d")
                Réf = Rdr.GetString(1)
                Désignation = Rdr.GetString(2)
                Montant = Rdr.GetDecimal(3)
                DataGridView2.Rows.Add(DatePièce.ToString, Réf, Désignation, Montant.ToString("#,##0.00"))
            Catch ex As Exception
                'Ne fait rien, juste pour éviter les valeurs null
            End Try
        End While
        Connexion.Close()