Discussion :

[essence-ciel]

Bonjour,

Je travaille sous Windows 10/11, Lazarus 2.2.6, SQLite 3.42 et la dernière version de ZeosDbo.

J'ai un jeu de données avec un champ de consultation. Je l'édite avec une grille de données. La grille affiche correctement la liste de sélection pour ce champ, mais je n'ai pas trouvé de moyen facile de l'autocompléter...

Le problème semble être que le champ de la liste de sélection utilise une cellule d'édition de type TPickListCellEditor qui dérive d'une TCustomComboBox qui n'implémenterait pas cette fonctionnalité.

Je suis preneur de toute suggestion.

En vous remerciant.

[anapurna]

Salut

Je n'ai pas tout compris.

Si j'étais toi je me ferais une méthode du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
procedure TMYFORM.SetupGridPickList(DBG : TDBGRID;const FieldName, sql: string);
var
  slPickList:TStringList;
  i : integer;
  QrDatas : TQuery;
begin
  slPickList:=TStringList.Create;
  try
    data.CloseQuery(QrDatas);
    QrDatas.SQL.Clear;
    QrDatas.SQL.Add(Sql) ;
    data.OpenQuery(QrDatas);
    //On remplis la liste de completion 
    while not QrDatas.EOF do
    begin
      slPickList.Add(QrDatas.Fields[0].AsString);
      QrDatas.Next;
    end; //while
 
    //place the list it the correct column
    for i:=0 to DBG.Columns.Count-1 do
      if DBG.Columns[i].FieldName = FieldName then
      begin
        DBG.Columns[i].PickList:=slPickList; // Ici on l'affecte a la bonne cellule 
        Break;
      end;
  finally
    slPickList.Free;
    CloseQuery(QrDatas);
  end;
end; (*SetupGridPickList*)

[essence-ciel]

Bonjour Anapurna,
Merci pour ta réponse, et en effet, je n'ai pas été très explicite dans ma demande.

J'ai 2 fichiers, Chromato et Molecule avec un champ de données de Chromato qui pointe sur le champ de données de Molécule.

J'arrive très bien à afficher les valeurs dans le dBGrid mais impossible d'entrer le moindre caractère et donc de se déplacer sur la valeur la plus proche de ce que je cherche. En sorte, mimer le comportement du dBGrid de Delphi

Exemples pour rechercher la valeur 1.8-



Ensuite pas un simple clic sur la valeur, le champ du dBGrid affiche la valeur.



En sorte, ce que je chercher, c'est mimer le comportement du dBGrid de Delphi dans ce domaine.

[anapurna]

Salut

Pour la saisie, as-tu vérifié que ton champs soit éditable ?

TDBGrid(Sender).EditorMode := True;

Pour que l'autocomplétion fonctionnne il Faut "filtrer" ton combo dans la methode onchange de ton combobox.
Pour cela il va falloir gérer deux listes... une complète et une filtrée (affichée dans le combo).
Le filtre ne fait que trier la liste complète et la réinscrire dans le combo.

[essence-ciel]

Bonjour Anapurna,
Merci pour ta réponse.

Je n'avais pas mis dbGrid en édition...

J'ai compris qu'il me fallait 2 listes, l'une complète et l'autre filtrée dans le combo du dBGRid. Cela me paraît un peu nébuleux.

J'ai beaucoup de RDV ces prochains jours, je teste dès que possible.

[anapurna]

Salut

je vois un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure FilterItems(Grid : TDbGrid;FStoredItems : TStrings;Col : Integer;Text : String );
var
  I: Integer;
begin
  Grid.Columns[Col].PickList.BeginUpdate;
  try
    if Text <> '' then
    begin
      Grid.Columns[Col].PickList.Clear;
       for I := 0 to Pred(FStoredItems.Count) do
         if ContainsText(FStoredItems[I], Text) then
 	    Grid.Columns[Col].PickList.Add(FStoredItems[I]);
    end
    else
      Grid.Columns[Col].PickList.Assign(FStoredItems)
  finally
    Grid.Columns[Col].PickList.EndUpdate;
  end;
end;