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
|
var
temp : string;
num,num2,concatenation:string;
begin
num2 := copy(Edit3.Text,1,4);
num := copy(Edit1.Text,1,20);
concatenation := trim (num + num2);
datamodule12.annee.Open;
//datamodule12.annee.IndexName := 'idindex';
temp := concatenation;
bonjour, j'ai un problème car lorsqu'on fait une recherche avec le clic d'un bouton, les éléments connus de ma table ne s'affichent pas alors qu'ils ont été au préalable enregistrés ! Le code m'indique que
if (Edit1.Text <> '') and (edit2.Text <> '') then
begin
if datamodule12.annee.findkey([concatenation]) then
begin
showmessage(' Voici les résultats !');
...
end
else
showmessage(' pas trouvé ! ');
end;
datamodule12.annee.Close;
end; |
Partager