Delphi + SQL + ComboBox

Signaler
Messages postés
55
Date d'inscription
mardi 16 octobre 2007
Statut
Membre
Dernière intervention
15 novembre 2011
-
Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
-
Bonjour,

j'ai un petit problème à l'affichage de ma comboBox :
procedure TFormAdmin.CBCaisse(Sender: TObject);
begin
  ComboBoxCaisse.Items.Clear;
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'SELECT DISTINCT Djourn FROM caisse WHERE Djourn <> null';
  ADOQuery1.Open;
  ADOQuery1.First;

  while not ADOQuery1.Eof do
  begin
    ComboBoxCaisse.Items.Add(ADOQuery1.FieldByName('Djourn').AsString);
    ADOQuery1.Next;
  end;
  ADOQuery1.Close;
end;


C'est grace à ce code que je la remplis, mais lorsque que je clique sur la valeur qu'elle contient, cette valeur ne reste pas affiché dedans et la combobox apparait comme vide. C'est comme si après avoir cliqué dedans elle initialisait la valeur : CBcaisse.text ='' chose que je ne comprends pas la. :/

J'aimerai vraiment de l'aide sur ce coup la !

Merci à ceux et celles qui pourront m'aider.

1 réponse

Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
14
bonjour,

Tu dois avoir un évènement qui est resté sur le OnCloseQuery, le OnChange ou le OnClick.
mets également un point d'arrêt sur le code au cas où ta procédure se relancerait..

cantador