WDForge.org - Forums

Re: Transferer Liste D'un champ Saisie vers un autre

Sujet: Re: Transferer Liste D'un champ Saisie vers un autre
par drcharly93 sur 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

//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)