Remplir MSFlexgrid par Boucle for

adilino7 Messages postés 5 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 14 avril 2009 - 12 avril 2009 à 20:28
adilino7 Messages postés 5 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 14 avril 2009 - 13 avril 2009 à 00:28
Bonjour;
Je veux remplir une colonne MSFlexgrid en utilisant une boucle for  parce que le nombre de ligne que j'ai dans MSFlexgrid n'est pas fixe mais dépond de la valeur d'un texbox  (j'ai essayé plusieurs code mais ça n'a pas marché )
j'ai utilisé le code suivant
for i=1 to i=MSFlexgrid1.rows-1
with MSFlexgrid1
.textmatrix(i,1)=i
next i
qq1 peut m'aider svp

2 réponses

Profil bloqué
12 avril 2009 à 23:52
Salut adilino7
Soit Textbox la textbox qui contient le nombre de lignes (on ne compte pas la ligne 0)

Avec le With
MSFlexgrid1.rows = val(Textbox.Text) +1
for i=1 to MSFlexgrid1.rows-1
    with MSFlexgrid1
        .textmatrix(i,1)=i
     end with
next i

Sans le With cela donne
MSFlexgrid1.rows = val(Textbox.Text) +1

for i=1 to MSFlexgrid1.rows-1

    MSFlexgrid1.textmatrix(i,1)=i
 next i

La version sans le With est préférable à moins que tu utilises d'autres propriétés ou méthodes de MSFlexgrid1 dans la boucle for. Dans ce cas ces propriétés ou méthodes doivent être entre le With MSFlexgrid1 et le End With

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain
0
adilino7 Messages postés 5 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 14 avril 2009
13 avril 2009 à 00:28
Merçi Mr GRENIER Alain
0
Rejoignez-nous