Discussion :

[vinystic]

Bonjour à tous et merci de me lire

J'ai une table avec un champ MATIERE et un champ EPAISSEUR. Plusieurs même matière ont des épaisseurs différentes.
Je souhaite choisir la matière dans une liste déroulante (pas de pb) et en fonction de cette saisie, une autre liste déroulante est chargée avec les épaisseurs correspondantes.

Merci de votre aide

[vinystic]

Bonjour à tous et merci de me lire

J'ai une table avec un champ MATIERE et un champ EPAISSEUR. Plusieurs même matière ont des épaisseurs différentes.
Je souhaite choisir la matière dans une liste déroulante (pas de pb) et en fonction de cette saisie, une autre liste déroulante est chargée avec les épaisseurs correspondantes.

Merci de votre aide

J'ai oublié de précisé que je suis sous PARADOX 8 en ObjectPal

[comico]

Bonsoir

Il y a 2 problèmes :

a) réagir au changement sur la liste 1

Mettre le code de construction de la liste déroulante 2 dans le changevalue de liste 1. Mais cela ne suffit pour une bonne exécution.

Ajouter un événement newvalue sur cette liste 1 avec :

Code :

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

1
2
3
4
dodefault
if eventinfo.reason()=EditValue then
   self.action(EditCommitField)
endif

Ceci va provoquer l'évenement ChangeValue et donc lancer le code de chargement de la liste lors d'une sélection dans liste 1.

b) Charger une liste déroulante en OPAL

il faut partir du champ, exemple "Matiere" puis demander l'arborescence objet pour sélectionner l'objet liste contenu dans le champ et renommer cet objet en "liste" par exemple.

On peut alors construire cette liste avec un code du genre :

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
Var
	tc TCursor
	i longint
EndVar
 
i=1
Matiere.liste.list.count=0
 
tc.open("MaTable")
 
Scan tc :
	Matiere.liste.list.selection = i
	Matiere.liste.list.value = tc.MonChamp 
	i=i+1
endscan
 
Matiere.liste.list.selection=0
 
tc.close()

[vinystic]

J'ai eu du mal, mais ça a fini par fonctionner MERCI BEAUCOUP!!!!!!