Discussion :

[frede]

En cliquant sur un champ d'un DBLookUPComboBox1, je souhaiteinitialiser un DBLookUPComboBox2, avec les valeurs de ma BD correspondantes au choix du premier DBLookUPComboBox1 .

DBLookUPComboBox1 est lié à une table TYPE_PERIPH (typ_per_code, typ_per_libelle) et affiche typ_per_libelle.

DBLookUPComboBox2 est lié à une table PERIPH (per_numero, per_libelle, typ_per_code#) et affiche per_libelle.

A un typ_per_libelle sélectionné dans DBLookUPComboBox1, j'affiche plusieurs per_libelle dans DBLookUPComboBox2.

Merci d'avance !!!

[star]

Sur le OnValidate du DBLookupComboBox1, plus précisement du champ de référence sous-jacent, initialise l'ordre SQL du DataSet sur lequel est basé DBLookupComboBox2.

Code :

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

CommandText := select * from PERIPH where typ_per_code = :typ_per_code

le prametre :type_per_code devra est initialisé juste avant dans le même gestionnaire d'événement.

[alexmorel]

Moi j'ai mis sur la proprieter ONClick de mon premier DBLookupComboBox1

Une procedure qui remet la requete du deuxieme a jour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
DBLookupComboBox1.onclick:=Procedure_mise_a_jour;
 
Procedure_mise_a_jour
Begin
  With la_reque_du_2_ComboBox Do
     Begin
        Active:=False;
        Sql.Clear;
        Sql.add('Select * from test where id_test ='+string(DBLookupComboBox1.KeyValue)+'');
        ExecSql;
       Active:=True;
     End;

Avec ça sa fonctionne bien.