manu | #1 Posté le 9/10/2011 à 16:48:01 |
---|
Avec Gambas ca roule !![](images/avatars/avatar-16.png) | Bonjour,
Je veux remplir un treeview a partir d'une base de données avec une boucle for each. Cela semble fonctionner sauf qu'il me manque des enregistrements. Du coup, je me demande si il y a pas untruc enorme que je ne vois pas.
Dans la base, j'ai des aliments classé par type et pour lequel j'ai un ou plusieurs détails supplémentaires
Voila le résultat :
![](http://img66.xooimage.com/files/a/a/a/capture-1-2d9743d.png)
Dans l'image, vous pouvez voir que l'indice de l'aliment selectionné est 3 ce qui veux dire que les 2 premiers ne sont pas affiché. Je ne comprend pas pourquoi :
Voici mon code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| hRequete = DB.Exec("SELECT TA.TypeAliment as Type, A.Aliment as Nom, DA.DetailAliment as Detail, DA.id FROM DetailAliment DA INNER JOIN Aliments A, TypeAliment TA ON DA.idAliment=A.idAliment and DA.idTypeAliment=TA.idTypeAliment") IF hRequete.Available = TRUE THEN FOR EACH hRequete IF sType <> hRequete!Type THEN 'si le dernier type est différent de celui de l'enregistrement en cours sType = hRequete!Type 'alors c'est un nouveau type INC i TreeView1.Add("T" & i, sType) ' et tu l’insère dans le treeview1 ELSE IF sAliment <> hRequete!Nom THEN sAliment = hRequete!Nom INC iNom TreeView1.Add("A" & iNom, sAliment,, "T" & i) ELSE ' sDetail = hRequete!Detail TreeView1.Add(hRequete!id, hRequete!Detail,, "A" & iNom) ENDIF ENDIF NEXT ENDIF
|
Avez vous une idée ?
Merci d'avance
Jeanne d'arc, elle a frit, elle a tout compris ! ![;)](images/smileys/icon_wink.png) Config : Manjaro linux (excellent !) XFCE 4.1 (simple et efficace) Gambas 3 dans les dépots (confort total) |
gambix | #2 Posté le 9/10/2011 à 17:29:34 |
---|
Faire simple !![](images/avatars/avatar-1.jpeg) | trouvé !!
ce n'est pas parce que l'on change de nom ou de type qu'il ne faut pas enregistrer l'entrée courante !!
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| hRequete = DB.Exec("SELECT TA.TypeAliment as Type, A.Aliment as Nom, DA.DetailAliment as Detail, DA.id FROM DetailAliment DA INNER JOIN Aliments A, TypeAliment TA ON DA.idAliment=A.idAliment and DA.idTypeAliment=TA.idTypeAliment") IF hRequete.Available = TRUE THEN FOR EACH hRequete 'Si type change on ajoute l'entrée et on incrémente l'index IF sType <> hRequete!Type THEN 'si le dernier type est différent de celui de l'enregistrement en cours sType = hRequete!Type 'alors c'est un nouveau type INC i TreeView1.Add("T" & i, sType) ' et tu l’insère dans le treeview1 ENDIF
'si le nom d'aliment change on créé l'entrée dans tous les cas et on incremente l'index IF sAliment <> hRequete!Nom THEN sAliment = hRequete!Nom INC iNom TreeView1.Add("A" & iNom, sAliment,, "T" & i) ENDIF 'on ajoute l'entrée dans tous les cas TreeView1.Add(hRequete!id, hRequete!Detail,, "A" & iNom)
NEXT ENDIF
|
Moins de texte dans une signature c'est agrandir son espace. |
manu | #3 Posté le 9/10/2011 à 18:53:59 |
---|
Avec Gambas ca roule !![](images/avatars/avatar-16.png) | ok super... Je savais bien que c'etait pas grand chose mais bon je trouvais pas (et je suis pas sûr que j'aurais trouvé ça seul ) .
Merci encoreJeanne d'arc, elle a frit, elle a tout compris ! ![;)](images/smileys/icon_wink.png) Config : Manjaro linux (excellent !) XFCE 4.1 (simple et efficace) Gambas 3 dans les dépots (confort total) |