forcer la valeur d'un dblookupcomboboxRésolu

Question

Bonjour ;

Je voudrai savoir comment faire pour forcer un dblookupcombobox sur une de ses valeurs sans que ce soit à chaque fois la même valeur.

En fait, j'ai un premier dblookupcombobox qui est relié à une table livre, et un deuxième dblookupcombobox qui est relié à la table éditeur, je veux que lorsque je sélectionne un livre et que j'appuie sur un bouton, le 2ème dblookupcombobox se positionne sur l'éditeur du livre sélectionné.

Merci d'avance.

cs_lily80 · Accepted Answer

Je viens de trouver dans un forum, la solution pour affecter une valeur par défaut à un dblookupcombobox, il suffit de se positionner sur le bon enregistrement de la table correspondante au dblookupcombobox et d'affecter la valeur du dataset de la table à la propriété key value : 

Table.Locate('key_field', valeur, [loPartialKey]);
dblookupcombobox.KeyValue:= dblookupcombobox.ListSource.DataSet.FieldByName('field_name').Value;

Merci à tous ceux qui m'ont aidé.

cs_cantador · Answer

wouichhhhhh....j'ai pas le sentiment que çà soit la bonne méthode mais tu peux néanmoins utiliser l'évènement OnCloseUp du premier et taper un lookup pour afficher l'éditeur dans le deuxième.

Mais je te confirme que c'est vraiment barbare !

cantador

cs_lily80 · Answer

Désolée de poser la question mais que veux tu dire par taper un lookup ?

khawarizm · Answer

Salut lily80 ; si tu veux forcer le deuxième lookupcombobox sur une valeur s’est un peu bizarre non ?! Parce que un dblookupcombobox est fait justement pour permettre à l’utilisateur  de faire un choix ;  mais si tu veux toujours réaliser ça , je pense que tu devrais faire un filtre sur la table reliée au deuxième DBlookupCombobox  selon le keyvalue du premier ou mieux que ça utiliser pour le deuxième Dblookupcombobox une requête paramétrée selon le keyvalue du premier 


, j’espère que c’est claire . Bonne chance

cs_lily80 · Answer

Je crois que je me suis mal exprimée, en fait, ce que je veux dire par forcer un dblookupcombobox sur une valeur, c'est en fait en sélectionner une par défaut mais lui permettre de la changer. Lorsque je sélectionne un livre, le dblookupcombobox éditeur doit afficher l'éditeur du livre avec la possibilité de sélectionner un autre éditeur par la suite.

cs_cantador · Answer

donc avec tes explications cela exclu la jointure la requête SQL
et même le filtre..


Reste le lookup ou le locate.. qui te laisse la possiblité de changer l'éditeur dans le 2éme car c'est simplement l'affichage de la valeur par défaut du combo qui va changer mais dès que va cliquer, tu retrouveras la liste des éditeurs.

Pour le lookup ou le locate ce sont deux méthodes liées à un dataset..
il y a l'aide de delphi et des exemples sur le forum..
tu verras lorqu'on les a utilisées, on ne peut plus s'en passer.
il te faut qd même le code de l'éditeur stocké dans la table des livres mais je pense que tu l'as fait.
@+
cantador

khawarizm · Answer

Re ; lily80 ; voilà une réponse à ta question un peu bizarre mais, elle marche !!! <?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>








procedure TForm1.Button1Click(Sender: TObject);









var 









Option : TLocateOptions;









Vari: Type ; 









//même type que le keyfield du 1er DBLookupComboBox









begin









vari:=DBLookupComboBox1.ListSource.DataSet.FieldByName ('Keyfield').Value;










   












 With DBLookUpComboBox2 Do










  
  Begin










    ListSource.DataSet.First ;










// Recherché dans  la deuxième table












    



Option := [loPartialKey];










    Table2.Locate('keyfield',vari,option);










// Affectation du numéro d enregistrement au keyvalue du 

2eme 





DBlookupCombobox












    DBLookUpComboBox2.KeyValue := Table2.recNo;










    End;










  end;









 










NB : il faut que le KeyField des deux DBLookupComboBox soit le champ commun des deux tables.

cs_lily80 · Answer

Merci, pour vos propositions, mais j'ai le regret de vous dire que ça ne marche pas. En fait, au niveau de la table, tout se passe bien, j'ai mis un dbgrid rattaché à la table éditeur qui m'a permis de constater que c'était le bon éditeur qui est pointé, cependant au niveau du dblookupcombobx, rien ne se passe.

Donc, le problème revient à trouver une ou plusieurs instructions pour sélectionner une valeur du dblookupcombobox.

Forcer la valeur d'un dblookupcombobox

8 réponses

Votre réponse

Discussions similaires