Discussion :

[mesquest]

Bonjour,

Dans un DBgrid, j'ai mis une picklist sur une des colonnes.
Cette picklist contient une valeur sur 35 caracteres (code, espace, libelle)
Comment faire pour que lors de la selection d'une ligne de ma picklist, ne recuperer que le debut de la ligne (qui correspond au code) dans ma colonne DBgrid.

[fs999]

Salut,

Tu peux essayer d'utiliser l'évènement OnSetText du champ pour le raccourcir.

Code :

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

1
2
3
4
5
6
7
procedure TForm1.TTable1Field1SetText(Sender: TField; const Text: String);
begin
  if AnsiPos(' ', Text) > 0 then
    TTable1Field1.AsString := Copy(Text, 1, AnsiPos(' ', Text)-1)
  else
    TTable1Field1.AsString := Text;
end;

A+

[mesquest]

Euh...,
J'ai oublier de dire que la colonne etait de type integer.

EN fait sur une colonne texte, que la picklist soit plus grande que la colonne du dbgrid ne pose pas de pb il tronque la valeur à la longueur de la colonne du dbgrid. (il suffit alors de mettre assez de blanc entre code et libelle).

Par contre pour un integer, il me donne un message comme quoi la valeur '1 libelle' ne correspond pas a un interger.
et même si je met 20 espaces entre code et libellé.

Attention je suis dans un dbgrid, je n'ai pas d'evenement sur les colonnes du dbgrid.

[fs999]

Et alors ?

AsString fonctionne avec tous les types. Il faut simplement que la valeur corresponde bien à un entier.

A+