1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal
Sujet Précédent Sujet Suivant

Pb index de grille hors limite

Résolu
jerome57440
Messages postés
40
Date d'inscription
lundi 3 mars 2008
Statut
Membre
Dernière intervention
8 juillet 2008
 - 18 avril 2008 à 10:33
Rematrix
Messages postés
115
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
16 juillet 2008
 - 20 avril 2008 à 12:36
bonjour,
je suis actuelement stagiaire dans un entreprise et je doit corriger les bugs du logiciel de pointage
j'ai un petit probleme avec une partie de mon code:
 begin
      with Query1 do
      begin
       Close;
       SQL.Clear;
       SQL.Add('Select * from Affectat');
       SQL.Add('where NuméroEmployé = '+Query2NumroEmploy.AsString);
       SQL.Add('and NuméroSociété = '+Query2NumroSocit.AsString);
       SQL.Add('and PointageAutoriséAffaire = "O"');
       SQL.Add('and ((Prog > 0) or (Schéma>0))');
       Open;
       if not EOF
        then First;
       Volume:=0;
       while not EOF do
       begin
        if ((Query1Prog.AsInteger<>9999) and (Query1Schma.AsInteger<>9999))
        then Volume:=Volume+Query1Prog.AsInteger+Query1Schma.AsInteger
                          -Query1ProgEffect.AsInteger-Query1SchmaEffect.AsInteger;
        Next;      <-Probleme a la 3eme iteration
       end;
       First;
       Label2.Caption:=IntToStr(Volume)+' h';
      end;
    end;

le message d'erreur index de grille hors limite apparait
quelqu'un aurait-il une petite idée dou cela pourrai bien provenir.
merci d'avance
A voir également:

3 réponses

Réponse 1 / 3
Rematrix
Messages postés
115
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
16 juillet 2008
20 avril 2008 à 12:36
bon, généralement quand une erreur de ce type manifeste (index de grille hors limite) c un probleme de "count", éssay de changer "while not EOF do" par un for i:=1 to query1.count ; je voie d'autres mais normalement si il y a un problème ça serai de type mismatch in expression ou quel que chose comme ça;(erreur de script sql) je parle de l'ecpase entre ('Select * from Affectat') et ('where NuméroEmployé = '+Query2NumroEmploy.AsString); .....

May Delphi be with us !

Matrix
3
Réponse 2 / 3
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
 31
18 avril 2008 à 23:47
Bonjour,

1/- es-tu réellement sur que l'erreur provienne du code ci-dessus et pas plutôt d'une conséquence indirecte du déplacement du curseur dans la source de données ?

2/- pourrait-on avoir le message d'erreur exact (faire un CTRL+C quand la boite de message d'erreur s'affiche) et nous le coller ici ?

May Delphi be with you !
<hr color="#008000" />Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
0
Réponse 3 / 3
Rematrix
Messages postés
115
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
16 juillet 2008
20 avril 2008 à 12:36
Pensez à cliquer sur [c.aspx?u=aHR0cDovL3d3dy5wZXRhdHYuY29tL3R2cG9wdXAvdmlkZW8uYXNwP3ZpZGVvPWZ1cl9mYXJtJmFtcDtQbGF5ZXI9d20mYW1wO3NwZWVkPW1lZA== Réponse acceptée] lorsque la réponse vous convient.
Matrix
0