Bonjour à tous,
je remplit une comboBox par programmation de l manière suivante:
Tous va bien jusqu'a ce qu'à la sélection d'un élément de la Combo (où l'on veut récupérer 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
14
15
16
17 PROCEDURE Remplir_CboMsg(code_Pdt) ListeSupprimeTout(CboMsg) ListeAjoute(CboMsg..Nom,"<Inconnu>"+gLien("0")) ; ListeAjoute(CboMsg..Nom,"<Nouveau>"+gLien("0")) HLitRecherchePremier(SpProduit,CodePdt, code_Pdt) TANTQUE HTrouve(SptProduit) SI SptProduit.CodePdt=code_pdt ALORS HLitRecherche(Spt,code,SptProduit.Code_Spt) SI HTrouve(Spt) ALORS SI (Spt.code_med=Code_Med) ALORS ListeAjoute(CboMsg,Complète(Spt.Libelle,500)+TAB+Spt.Code) FIN FIN FIN HLitSuivant(SptProduit,Code_Pt) FIN CboMsg..Triée=Vrai
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 codeMsg=ExtraitChaîne(CboMsg..ValeurAffichée,2,TAB) //et là codeMsg vaut <EOT>me donne le bon code pour de petits message et <eot> pour les grand messages
Code : Sélectionner tout - Visualiser dans une fenêtre à part trace(codeMsg)
Une solution pour moi?
Merci d'avance.
Partager