Bonjour
Lors de l'ouverture d'un FrReport, le compilateur me retourne le message d'erreur
Indice de liste hors limite(0)
La requete qui est sur le report ne retourne qu'un seul enregistrement, alors pourquoi le compilateur trouve qe je depasse ???
Sur le bouton rechercher:
1 2 3 4 5 6 7
|
DataModule_Base.Query_InfoAccident.SQL.Clear;
DataModule_BAse.Query_InfoAccident.SQL.Add('SELECT * FROM RELEVES');
DataModule_BAse.Query_InfoAccident.SQL.Add('WHERE DATEACC ='+QuotedSTr(AnsiReplaceStr(DataModule_BAse.Query_recherche.FieldByName('DateACC').AsString,'/','.')));
DataModule_BAse.Query_InfoAccident.SQL.Add('AND NOM ='+QuotedSTr(DataModule_BAse.Query_recherche.FieldByName('NOM').AsString));
DataModule_BAse.Query_InfoAccident.SQL.Add('AND HEUREACC ='+QuotedSTr(DataModule_BAse.Query_recherche.FieldByName('HeureACC').AsString));
DataModule_BAse.Query_InfoAccident.Open; |
et sous le bouton imprimer
1 2 3 4 5 6 7 8
|
begin
if DataModule_BAse.Query_InfoAccident.RecordCount > 0 then
begin
DataModule_Impression.frReport_ReleveAccident.preparereport;
DataModule_Impression.frReport_ReleveAccident.ShowReport;
end;
end; |
J'ai ajouter le recordcount pour voir s'il retourner qu'un seul enregistrement, et oui, il est bien de 1.
Merci d'avance
Partager