Re: Transferer Liste D'un champ Saisie vers un autre
Posté par drcharly93 le 6/11/2006 18:13:16
Idée:
On image le champs de saisie nommé 'SAI1'
la liste de Gauche : 'LST1'
La liste de droite : 'LST2'
Le bouton qui permet d'alimenter les liste 'CMD1'
Pour pouvoir tester avec les noms de vos propre champs
On image le champs de saisie nommé 'SAI1'
la liste de Gauche : 'LST1'
La liste de droite : 'LST2'
Le bouton qui permet d'alimenter les liste 'CMD1'
Pour pouvoir tester avec les noms de vos propre champs
//Dans le bloc déclaration flobale de fenetre
PUBLIC
sChamp est une chaîne = "SAI1"
sListe1 est une chaîne = "LST1"
sListe2 est une chaîne = "LST2"
//dans le bloc Clic sur CMD1
sBuff est une chaîne
sValeur est une chaîne
nPos est un entier
//Ici on teste si on a saisie quelque chose
SI SansEspace(sChamp) = "" ALORS RETOUR
//On recherche un eventuel séparateur entre entre alpha et numerique
nPos = Position( {sChamp,indChamp}..Valeur, " ",DepuisFin)
SI nPos > 0 ALORS sBuff = SansEspace( {sChamp,indChamp}..Valeur[[ A nPos - 1]] ) SINON sBuff = {sChamp,indChamp}..Valeur
//On ajoute dans LST1
ListeAjoute(sListe1,{sChamp,indChamp}..Valeur)
//On ajoute dans LST2
ListeAjoute(sListe2,"Prix : " + sBuff)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=4731&post_id=19640