Discussion :

[droliprane]

Bonjour à tous,

j'ai un petit soucis qui me donne bien du fil à retordre. J'ai une liste que je charge par programamtion, ci-dessous le code de remplissage :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
PROCEDURE chargeListeEtablissements()
 
ListeSupprimeTout(LISTE_Etablissements)
 
// je ne peux voir que les établissements dont je suis membre, où ceux qui sont dépannés par ceux dont je suis membre 
// sauf si je suis admin (alors là je vois tout)
 
 
Rs est une Source de Données
Sql est une chaîne
 
Sql = "SELECT etab_id, etab_nom FROM etab WHERE etab_id > 1 AND etab_nom LIKE '%" + Remplace(SAI_filtre, "*", "%") + "%'"
 
SI PAS FEN_START.admin ALORS
 
	Sql = Sql +
			" AND (etab_id IN (SELECT membr_eid FROM membr WHERE membr_uid = " + FEN_START.uid + ") " +
			" OR etab_id IN (SELECT dep_eid1 FROM dep WHERE dep_eid2 IN (SELECT membr_eid FROM membr WHERE membr_uid = " + FEN_START.uid + ")))"
FIN
 
Sql = Sql + " ORDER BY etab_nom"
 
//trace(Sql)
 
SI PAS HExécuteRequêteSQL(Rs,Cnx,hRequêteDéfaut ,Sql) ALORS
	Erreur("Erreur d'initialisation de la requête"+RC+HErreurInfo()+ RC + RC + Sql)
	RETOUR
FIN
SI HLitPremier(Rs) ALORS
	TANTQUE PAS HEnDehors(Rs)
 
		ListeAjoute(LISTE_Etablissements, Rs.etab_nom + gLien(Rs.etab_id))
		HLitSuivant(Rs)
	FIN
FIN
HLibèreRequête(Rs)
 
gLienActive(LISTE_Etablissements)
 
SI LISTE_Etablissements..Occurrence > 0 ALORS 
	ListeSelectPlus(LISTE_Etablissements,-1)
	ExécuteTraitement(LISTE_Etablissements,trtSélection)
FIN

Ce qui ne fonctionne pas c'est la toute fin de ma procédure. Après chargement des éléments de la liste, je voudrais que le premier élément se sélectionne automatiquement (comme quand on définit une liste par association à une requête ou une table via l'assistant) et que cela déclenche l'événement de sélection d'un élément de la liste. Comme cette sélection automatique du premier élément ne semble pas fonctionner, je dois la forcer. Mais le premier élément de ma liste n'a pas forcément le rang 1, surtout que j'utilise les gLien...

Merci d'avance pour vos idées.

bvadam

[Kaal]

Bonjour
Dans votre ListeSelectPlus(), vous mettez -1 en second paramètre (qui correspond au n° de l'élément que l'on veut sélectionner) :

Code :

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

1
2
3
4
SI LISTE_Etablissements..Occurrence > 0 ALORS 
	ListeSelectPlus(LISTE_Etablissements,-1)
	ExécuteTraitement(LISTE_Etablissements,trtSélection)
FIN

Si vous voulez le 1er élément il faut mettre :

Code :

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

ListeSelectPlus(LISTE_Etablissements,1)

[droliprane]

J'ai mis -1 parce que je ne peux justement pas mettre 1 !

Le premier élément de ma liste n'a pas forcément le rang 1, ou l'indice, appelle ça comme tu veux

dans l'aide de ListeSelectPlus, il est écrit que lorsqu'on donne -1 comme argument, il sélectionne automatiquement le premier élément de la liste

sauf que moi je me trouve dans un cas particulier ...

[droliprane]

bon j'ai fermé WinDev et je l'ai rouvert, et recompilé mon projet

et bizarrement cette fois, la sélection fonctionne

je n'aurais pas du poster ce sujet

désolé

merci néanmoins kaal pour ta participation

[Xipotera]

si tu met 1 il selectionnera ton premier élément de liste.
dans le cas ou tu veux qu'il recherche ton id 1 alors la syntaxe serait :

Code :

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

ListeSelectPlus(LISTE_Etablissements,ListeCherche(LISTE_Etablissements,1))

[lolob84]

Bonjour,

As tu essayé simplement l'affectation directe? d'après ce que je crois comprendre, ta combo n'est pas avec saisie...

Code :

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

1
2
3
<Nom Combo> = Indice

Comme le glien est actif, il va travailler sur la ValeurMemorisee, ça doit fonctionner car je pense que tu confonds le rang ou l'indice et la valeur mémorisée.

sinon dernier recours, mais je ne pense pas que ce soit nécessaire :

Code :

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

1
2
 
Listeselectplus(MaCombo,ListeCherche(MaCombo,Mavaleur))

Listecherche va te renvoyer l'indice de la ligne ayant pour valeurmemorisee '1', mais comme je l'ai dit, je ne pense pas que ce soit nécessaire

[Kaal]

J'ai vérifié dans l'aide de ListeSelectPlus (sur internet et sur windev 15) et je vois pas où ils parlent de -1.

Par contre j'ai essayé avec 1 et ça fonctionne :

Code :

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

1
2
3
ListeAjoute(LISTE_Etablissements, "TEST 02" + gLien(2))
ListeAjoute(LISTE_Etablissements, "TEST 03" + gLien(3))
ListeAjoute(LISTE_Etablissements, "TEST 01" + gLien(1))

ListeSelectPlus(LISTE_Etablissements,1) // sélectionne la 1er ligne // peu importe si glien est coché
LISTE_Etablissements = 3 // Sélectionne la 2ème ligne. // uniquement si glien est coché.

[lolob84]

bon j'ai fermé WinDev et je l'ai rouvert, et recompilé mon projet

et bizarrement cette fois, la sélection fonctionne

je n'aurais pas du poster ce sujet

désolé

merci néanmoins kaal pour ta participation

Ok désolé le temps de répondre au tel et de finir d'éditer tu avais ta solution...

Bizarre mais ça semble plus logique.