Discussion :

[jojo86]

Bonjour à tous !

Voila, une question, j'ai un DBGrid, je voudrais que lorsqu'on saisi un text dans un TEdit, le curseur ce place automatiquement sur le premier champ qui ressemble ou correspond au TEDit.

J'ai essayé avec cette requete qui fonctionne :

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
select Nom from Client where nom like 'to%'

Mais moi je ne veux pas uniquement afficher tout ce qui ressemble à toto, mais je veux "déplacer la selection" vers l'enregistrement qui ressemble le plus... sans retirer des enregistrement du DBGrid...

Merci de votre aide.

[Cl@udius]

Salut

Il suffit de faire un Locate sur le DataSet du DBGrid, celui-ci se positionnera sur la première occurrence:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  IBQuery1.Locate('NOM', 'to', [loPartialKey, loCaseInsensitive]);

@+

[jojo86]

Euh... merci de ta réponse, mais j'ai un message d'erreur lors de la compilation :

"Types incompatibles Integer et TLocateOption"...

Merci de votre aide !

[Cl@udius]

Montre-nous ton appel à Locate.
Parce que là je ne vois pas trop.

@+

[jojo86]

Non c'est bon, il n'y à plus de souci, par contre je voudrais améliorer la chose...

J'aimerais que lorsque j'écris par exemple :'to' il s'affiche imédiatement la valeur correspondante vous comprenez???

Si dans ma table j'ai 'toto' et 'tomy' si j'écris 'to' s'affiche alors 'tomy', ou si je tape 'tot' s'affiche automatiquement 'toto'...

J'ai essayé un truque en passant par un DBEdit qui sera invisible. Mon DBEdit est relié au même datasource que le dbgrid. voici ce que j'éssaye :


A noter que je n'ai pas encore ajouté le filtrage des touches comme la touche "supprime" etc...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
IBQuery2.Locate('NOM', ''+Edit1.text+'', [loPartialKey, loCaseInsensitive]);
Edit1.Text:=Edit1.Text+//je ne sais pas quoi mettre Copy(...DBEdit2.text???)
//déplacement du curseur vers la fin
Edit1.selstart := length(Edit1.Text+'u');
end;

J'ai éssayé plusieurs chose, mais je ne m'y connait pas encore asser ... Merci de votre aide.