Supprimer toutes les lignes d'un flexgrid sauf la ligne de titre
cs_carmella
Messages postés26Date d'inscriptionmercredi 1 octobre 2003StatutMembreDernière intervention 8 février 2007
-
11 août 2006 à 09:54
mltgn
Messages postés49Date d'inscriptionsamedi 1 février 2003StatutMembreDernière intervention26 juillet 2007
-
11 août 2006 à 14:09
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
A voir également:
Supprimer toutes les lignes d'un flexgrid sauf la ligne de titre