Grille Vb

Question

Bonjour à tous,

Je développe un petite application pour mon école et j'ai un problème lorsque je veux effacer toutes les lignes d'une grille sauf la ligne fixe. En effet voici mon code:

For i = 1 To (TabGarSearch.Rows - 1)

On Error Resume Next

TabGarSearch.RemoveItem (i)
Next i

Lors du test j'ai l'erreur suivante: Erreur d'éxécution 30002: Cette ligne n'existe pas.

Si quelqu'un pouvait m'aider ça serait super sympa.
@ +

pi7438 · Answer

ben ouais lorsque tu efface une grille, la grille d'apres prend le numéro de la grille que tu viens d'effacer donc, si tu veut effacer toute les grilles il faut faire :

For i = 1 To (TabGarSearch.Rows - 1)

On Error Resume Next

TabGarSearch.RemoveItem (1)
Next i

n'oubliez pas de visiter mon site web : http://pi7438.free.fr/

donbesada · Answer

Salut pi,

Merci pour ton aide mais ton code ne fonctionne pas. Il me sort un message d'erreur : "Impossible de supprimer la dernière ligne non-fixe". Tu vois une autre solution?

pi7438 · Answer

quel genre de controle utilise tu ?

n'oubliez pas de visiter mon site web : http://pi7438.free.fr/

donbesada · Answer

J'utilise MS flexGrid

pi7438 · Answer

Option Explicit

Dim i As Long
Dim b As Long

Private Sub Form_Load()
b = MSFlexGrid1.Rows - 2
For i = 1 To b
MSFlexGrid1.RemoveItem (1)
Next

End Sub

en fait b = MSFlexGrid1.Rows - 2 <- (-2)
 car tu ne peut pas enlever la première ligne

n'oubliez pas de visiter mon site web : http://pi7438.free.fr/

Grille Vb

5 réponses

Discussions similaires