salut tout le monde

avec ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
procedure TForm9.FormShow(Sender: TObject);
var requete : string;
begin
requete := ' select Code_Client From Table_Client)';
query1.SQL.Clear;
Query1.SQL.Add(Requete)
dblookupcombobox1.ListField := 'CODE_CLIENT';
dblookupCombobox1.ListSource:=Datasource1;
dblookupCombobox1.KeyField:='CODE_CLIENT';
query1.Open;
end;

avec ce code j'ai alimenté mon dblookupcombobox mais je ne peux pas sélectionner les champs .
je les voix quand je déroule ledblookupcombobox mais quand je click sur un champ rien ne s'affiche dans le dblookupcombobox !!!!

comment je fait ?


merci