Recherche:

Excuse moi Blagueur je ne savais pas que tu écoutais. :mouarf:

Maintenant il est vrai qu'une question mal posée ne donne pas toujours (souvent ?) de bonnes réponses.

Mais bon il faut bien...

Le sait-il ? :lol:

Alors un truc du genre positionner sur le Onchange ta combo couleur



if Not VarIsnull(macombocouleur.keyvalue) then
maComboBarette.ListeSource.Dataset.Filtre := 'grade.couleur = ' +...

difficile de répondre sans la structure des données
Une réponse qui marche toujours

Crée plusieurs ensembles avec les MÊMES champs



case ceinture of
1 : maCombo.ListeSource.Dataset...

Et avec un filtre ?
Tu remplaces ta combobox par TDBLookupcomboBox.

Puis tu filtre les éléments de la liste liée.



TForm1 = class( tform)
SourceListeCombo : TDatasource;
...