Supprimer toutes les lignes d'un flexgrid sauf la ligne de titre

Signaler
Messages postés
26
Date d'inscription
mercredi 1 octobre 2003
Statut
Membre
Dernière intervention
8 février 2007
-
Messages postés
49
Date d'inscription
samedi 1 février 2003
Statut
Membre
Dernière intervention
26 juillet 2007
-
bonjour
comment faire pour supprimer toutes les lignes d'un flexgrid sauf la ligne de titre? Merci

 OuvBase 'ouverture de la connexion
   
    Set RsBdd = ConBdd.Execute("select NumEquip, NomEquip from TEquipe where  NomEquip like '%" & Trim(Equip) & "%' ")

   compt = compter - 1 'compter est une variable globale qui récuoère toutes les lignes du flexgrid au départ
   ' vider le flexgrid ou suppression de toutes les lignes
     If (compt) <> 0 Then
        For i = 2 To (compt)             ' Détermine comment
           If compt = 2 Then MsgBox (compt)  'Exit For
           MsgBox (i)
           MSFGEquip.RemoveItem i   ' supprimer un élément
          Next i
     End If
   
    compter = 0 'variable globale qui récupère le nombre de ligne
   
    With MSFGEquip
        For cpt = 0 To 1
       
        .TextArray(cpt) = RsBdd(cpt).Name
        Next cpt
       
        While Not RsBdd.EOF
            For cpt = 0 To 1
            If Not IsNull(RsBdd(cpt)) Then
                .TextMatrix(.Rows - 1, cpt) = RsBdd(cpt)
            End If
            Next cpt
            RsBdd.MoveNext
            .Rows = .Rows + 1
             MsgBox (MSFGEquip.Rows)
        Wend
    End With
    compter = MSFGEquip.Rows
    
    FermBase 'fermeture de la connexion

cari

2 réponses

Messages postés
26
Date d'inscription
mercredi 1 octobre 2003
Statut
Membre
Dernière intervention
8 février 2007

c'était:

MSFGEquip.Clear
MSFGEquip.Rows=2


Comment mettre c'est résolu?

cari
Messages postés
49
Date d'inscription
samedi 1 février 2003
Statut
Membre
Dernière intervention
26 juillet 2007

MSFGEquip.Rows=2, si vous avez le titre sur 2 lignes sinon MSFGEquip.Rows=1 suffit.

mltgn