Problème de grille

cs_latatia Messages postés 15 Date d'inscription mardi 2 mars 2004 Statut Membre Dernière intervention 22 mars 2004 - 16 mars 2004 à 14:35
cs_labout Messages postés 1356 Date d'inscription samedi 8 décembre 2001 Statut Membre Dernière intervention 23 octobre 2006 - 17 mars 2004 à 12:57
J'ai un petit problème pour une msFlexGrid :
Il ne m'affiche que le premier enregistrement de mon recordset alors que je fais une boucle

Mon code est celui là

rs_Pc.open req_Pc, cnx, adOpenDynamic

rs_Pc.MoveFirst

While Not rs_Pc.EOF
msf_mat.Row = 1
msf_mat.Col = 0
msf_mat.Text = rs_Pc!Pc_IP
msf_mat.Col = 1
msf_mat.Text = rs_Pc!M_Nom
msf_mat.Col = 2

rs_Pc.MoveNext
msf_mat.Rows = msf_mat.Rows + 1

wend

4 réponses

cs_labout Messages postés 1356 Date d'inscription samedi 8 décembre 2001 Statut Membre Dernière intervention 23 octobre 2006 8
16 mars 2004 à 15:24
labout

Il faut 1 compteur ligne sinon tu remplis tjrs la premiere ligne

dim i as integer
i=1
While Not rs_Pc.EOF
msf_mat.Row = i
msf_mat.Col = 0
msf_mat.Text = rs_Pc!Pc_IP
msf_mat.Col = 1
msf_mat.Text = rs_Pc!M_Nom
msf_mat.Col = 2

rs_Pc.MoveNext

wend

@+
0
cs_labout Messages postés 1356 Date d'inscription samedi 8 décembre 2001 Statut Membre Dernière intervention 23 octobre 2006 8
16 mars 2004 à 15:24
labout

Il faut 1 compteur ligne sinon tu remplis tjrs la premiere ligne

dim i as integer
i=1
While Not rs_Pc.EOF
msf_mat.Row = i
msf_mat.Col = 0
msf_mat.Text = rs_Pc!Pc_IP
msf_mat.Col = 1
msf_mat.Text = rs_Pc!M_Nom
msf_mat.Col = 2

rs_Pc.MoveNext

i=I+1
wend

@+
0
cs_latatia Messages postés 15 Date d'inscription mardi 2 mars 2004 Statut Membre Dernière intervention 22 mars 2004
17 mars 2004 à 11:30
J'ai essayé ton code mais ça ne fonctionne pas
0
cs_labout Messages postés 1356 Date d'inscription samedi 8 décembre 2001 Statut Membre Dernière intervention 23 octobre 2006 8
17 mars 2004 à 12:57
labout
Tu m'étonnes beaucoup j'utilise ce system et cela marche.
La toile est ailleurs.
Vérifie que tu as plusieurs enreg en affichant i par un
msgbox i
@+
0
Rejoignez-nous