PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → Ajout de texte dans une combo !
Ajout de texte dans une combo !
Débuté par Jean Serrière, 20 juil. 2004 00:33 - Aucune réponse
Posté le 20 juillet 2004 - 00:33
Bonjour à tous!
Prenons une combo alimentée par une requête ou directement par fichier.L'utilisateur
souhaite ajouter une partie de texte à la suite d'un élément selectionné.
Exemple : toto
ona joute cette proposition :tata pour obtenir dans la prochain déroulant
: toto
toto tata
Mon code fonctionne :

VL_Responsable est une chaîne
VL_Responsable = ""
VL_Responsable = SansEspace(Combo_Responsable..ValeurAffichée)
VLR, Vl_tr sont des booléen

SI VL_Responsable<>""
VLR = HLitRecherchePremier(Responsable,Responsable,VL_Responsable)

SI PAS HTrouve() ALORS

SI OuiNon("Ce nom n'est pas un élément de la liste","Souhaitez-vous l'ajouter?")
= Oui ALORS
Responsable.Responsable = Vl_Responsable
HAjoute(Responsable)

FIN

FIN
FIN

Le problème ?
Avec deux combos identiques : même description exactement
l'une accepte l'effet de la barre d'espace pour entrer "tata", l'autre "bloque"
sur l'espace. Il faut pour ajouter du texte taper la première lettre "t"
revenir devant le "t" et là la barre d'espace fonctionne. Ceci sur 7,5 et
8 .
Merci de votre patience
JS