Bonjour,

je cherche à filtrer une requête qyListe sur un champ calculé. Pour cela j'utilise un RadioGroup rgFiltreType et la fonction OnFilterRecord

procedure TfmBilanBiologique.qyListeFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
   case rgFiltreType.ItemIndex of
     0 : Accept := (qyListe.FieldByName('TYPECTE').AsString = 'M')
     1 : Accept := (qyListe.FieldByName('TYPECTE').AsString = 'S');
   end;
end;

Mais la donnée (qyListe.FieldByName('TYPECTE').AsString est toujours nulle (alors qu'elle est renseignée dans le DBGrid correspondant) et du coup le filtre ne fonctionne pas.

J'ai du louper quelque chose mais je ne vois pas quoi.
Pouvez-vous m'aider ?

Merci.

bonsoir,

Le filtrage est activé si la propriété Filtered a la valeur true

cantador

Bonjour,

La propriété Filtered est bien à True.

Ilona

sur le clic du RadioGroup :

procedure TForm1.rgFiltreTypeClick(Sender: TObject);
begin
  Query1.filtered := false;
  Query1.Filtered := true;
end;

cantador

Merci pour cette indication: c'est ce que j'ai fait et ça ne marche pas.

En fait, on passe bien dans la fonction mais le champ n'est pas encore calculé, il est vide. Du coup la requête n'affiche rien.

Ilona

J'ai testé et ça marche nickel chrome..
bien sûr avec données affichées dans un grid sur requête non filtrante
(select * from Matable)

sur les deuc clics dans le radiogroup, j'ai bien l'exécution des deux possibiltés du
OnFilterRecord avec affichage des données correctes (et sans rafraîchir)

cantador

Je suis d'accord avec toi. Mais j'ai une petite difficulté supplémentaire: le champ sur lequel je trie est un champ calculé. Au moment où je passe dans la fonction, le calcul n'a pas encore été fait et le champ est vide => la requête est vide.

Ilona

Merci d'avoir pris le temps de me répondre.

Une fois qu'on sait que ça ne marche, on trouve d'autres solutions peut-être un peu plus lourdes mais qui fonctionnent. Et c'est là l'essentiel.

Ilona

peut-être un peu plus lourdes

non pas forcément..
J'avais un case of dans un OnCalcField, je l'ai viré, j'ai stocké les infos à la place des champs calculés
résultat : 3 fois plus vite

il faut tester chaque solution en la chronométrant sans à priori..

cantador