Bonsoir à tous
J'ai un problème avec la fonction AddIndex. Le compilateur me dis " la table n'est pas indexée" pourtant j'ai bien regardé les codes sources disponible sur ce sujet et je crois avoir fait pareil.
e vous donne mon bout de code si vous savez ce qui ne vas pas...?
procedure TForm1.Button6Click(Sender: TObject);
begin
With Table1 do begin
Close;
Exclusive := True;
AddIndex ('IndexDate', 'Date', []);
IndexFieldNames := 'Indexdate'
Exclusive := False;
Open;
End;
Edit1.text:= Table1.IndexFieldNames;
end;
Merci pour vos réponses