Discussion :

[I.Love.C]

Bonjour a tous,
je débute en 4D et j' aimerais effectuer une sélection pour remplir une listbox.
Je dois sélectionner dans une table([Exercices]) des enregistrements en fonction d' un champs "ID".
voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
ENSEMBLE VIDE([Exercices];"exo_res")
CHERCHER([Seances_exercices];[Seances_exercices]ID_seance=5656)*
 
Tant que (Non(Fin de selection([Seances_exercices])))
	CHERCHER([Exercices];[Exercices]ID=[Seances_exercices]ID_exercice)
	ALERTE("J' adjoint "+Chaine([Exercices]ID))
        ADJOINDRE ELEMENT([Exercices];"exo_res")
	ENREGISTREMENT SUIVANT([Seances_exercices])
Fin tant que 
 
UTILISER ENSEMBLE([Exercices];"exo_res")
EFFACER ENSEMBLE("exo_res")
VISUALISER SELECTION([Exercices];*)

Mon alerte affiche les bon résultat donc ma recherche fonctionne, mais
lorsque j' essaye d' afficher la sélection dans une boucle, je ne rentre pas dedans, et VISUALISER SELECTION ne s'exécute pas.
J ' en conclu que que l'ensemble est reste vide.
Cependant ma listbox affiche le dernier enregistrement de la table

J' aimerai comprendre pourquoi mon ensemble "exo_res" ne remplace pas la sélection courante et pourquoi ma listbox affiche le dernier élément (bonne valeur, mais il maque les autres) de ma table>

Merci beaucoup

[stanc]

Bonjour,

Plusieurs choses.

Qu'est ce que cet * fait en fin de ligne ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CHERCHER([Seances_exercices];[Seances_exercices]ID_seance=5656)*

C'est UTILISER ENSEMBLE("exo_res"). Il ne faut pas préciser la table dans UTILISER ENSEMBLE.

Si tu veux alimenter une listbox sélection courante, nul besoin de VISUALISER SELECTION. Le changement de sélection suffit.

Si tu as un lien entre [Seances_exercices] et [Exercices], ta méthode peut se résumer en deux lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
CHERCHER([Seances_exercices];[Seances_exercices]ID_seance=5656)
JOINTURE([Seances_exercices];[Exercices])