Bonjour les amis,
Aidez-moi s'il vous plait. Voici mon problème : J'ai deux combobox A et B et je voudrais remplir Le combobox B à l'aide des critères des données du combobox A.
J'ai mis ce code à la méthode change du combobox A :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
   With DataModule1.IBQClasse do
    begin
    close;
    ParamByName('CYCLE').AsString := ComboBoxA.Text;
    open;
    If (DataModule1.IBQClasse.RecordCount > 0) then
        DataModule1.IBQClasse.FetchAll;
        DataModule1.IBQNational.First;
        While not DataModule1.IBQClasse.Eof do begin
          ComBoBoxB.Items.Add(DataModule1.IBQClasse.FieldByName('NOMCLASSE').AsString);
          DataModule1.IBQClasse.Next;
    end;
 end;
Aucun resultat help me please