Discussion :

[cari]

bonjour
comment faire pour supprimer toutes les lignes d'un flexgrid sauf la ligne de titre? Merci

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
 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

[Phifi]

comment faire pour supprimer toutes les lignes d'un flexgrid sauf la ligne de titre? Merci

une boucle liée à la méthode RemoveItem me semble une bonne solution. Quelle est l'erreur ?

[cari]

Code :

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

1
2
3
4
5
6
7
8
9
 ' vider le flexgrid
     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
           compt = compt - 1
        Next i
     End If

erreur :

la ligne ne contient pas cette ligne

en fait au fur et à mesure le tableua diminue, mais le compteur i augmente, c'est à ce niveau le problème.

[cari]

en fait, il faut que je décrémente le i, car ici, je l'incrémente et c'est cela le problème.

Comment décrémenter ?

[pc75]

Bonjour,

Et si tu fais ça ?

Code :

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

1
2
3
 
MSFGEquip.Clear
MSFGEquip.Rows=2

[cari]

merci.