Discussion :

[djouahra.karim1]

Bonjour
je ne comprend pas pourquoi ça rentre pas dans la boucle pendant l'exécution !
voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
datamodule2.Tponctetchrgt.Active := True;
datamodule2.Tponctetchrgt.first;
datamodule2.Tponctetchrgt.Append;
 
[size=9]While (not datamodule2.Tponctetchrgt.Eof) do
          Begin
          If (Datamodule2.TponctetchrgtEXSEQ.value = '') Then                      datamodule2.Tponctetchrgt['EXSEQ'] := 'S'
                                                         Else   datamodule2.Tponctetchrgt['EXSEQ'] := '';
 
          datamodule2.Tponctetchrgt.Next;
          End;[/size][size=7][/size]

[djouahra.karim1]

bon desolé je doit refaire le code en clair

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
datamodule2.Tponctetchrgt.Active := True;
datamodule2.Tponctetchrgt.first;
datamodule2.Tponctetchrgt.Append;
 
While (not datamodule2.Tponctetchrgt.Eof) do
Begin
 If (Datamodule2.TponctetchrgtEXSEQ.value = '') Then  
                                                 datamodule2.Tponctetchrgt['EXSEQ'] := 'S'
 Else 
                                                  datamodule2.Tponctetchrgt['EXSEQ'] := '';
 
datamodule2.Tponctetchrgt.Next;
End;

[mika]

Ton append (ajout d'enregistrement) Ajoute un nouvel enregistrement vide à la fin de l'ensemble de données. DOnc par consequent ta boucle ne sert à rien

Ne serait il pas mieux de faire ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
   datamodule2.Tponctetchrgt.Active := True; 
   datamodule2.Tponctetchrgt.first; 
   While (not datamodule2.Tponctetchrgt.Eof) do 
    Begin  
     datamodule2.Tponctetchrgt.Edit; 
     If (Datamodule2.TponctetchrgtEXSEQ.value = '') Then  
        datamodule2.Tponctetchrgt   ['EXSEQ'] := 'S' 
     Else 
        datamodule2.Tponctetchrgt['EXSEQ'] := ''; 
     datamodule2.Tponctetchrgt.Post; 
     datamodule2.Tponctetchrgt.Next; 
    End;

[djouahra.karim1]

maintenant j'ai changé du programme, mais le pb revient avec les nouveau changement.

j'ai deux table (ils sont les mêmes du coté champs , la différence est le nom de chaque table, deux table jumaux). la permière contient des enregistrements (mais pas tous les champs sont remplis, sur 99 il y'a 25 champs remplis). Moi je veux transférer les données de la première table vers la deuxième table a condition que pour un champs (EXSEQ) quand il contient un blanc (vide) la deuxième doit recevoir une lettre "S" est si le champs (EXSEQ) contient un chiffre (1 ou 2 ou 3) alors le champs (EXSEQ) de la deuxième table recoit lui un blanc (vide).

le code est très long (dans la boucle) je fait une partie

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
datamodule2.Tponctetchrgt.Active := True;
datamodule2.TMAJponcetchargmt.Active := True;
datamodule2.Tponctetchrgt.First;
datamodule2.TMAJponcetchargmt.First;
While (not Datamodule2.TMAJponcetchargmt.Eof) and (not datamodule2.Tponctetchrgt.Eof) do
     Begin 
     datamodule2.Tponctetchrgt.Edit;
     datamodule2.TMAJponcetchargmt.Edit;
      datamodule2.Tponctetchrgt['EXDAT'] := Datamodule2.TMAJponcetchargmt['EXDAT'];
       If (Datamodule2.TMAJponcetchargmt['EXSEQ'] = '') Then  datamodule2.Tponctetchrgt['EXSEQ'] := 'S'
                                                                    Else  datamodule2.Tponctetchrgt['EXSEQ'] := '';
      datamodule2.Tponctetchrgt.Post;
      datamodule2.Tponctetchrgt.Next;
      Datamodule2.TMAJponcetchargmt.Next;
      End;

pourquoi pendant l'exécution il ne rentre pas dans la boucle, il s'arrête dans la ligne du While ???

[nisaes]

ben tu met un point d'arrêt
(click au début de la ligne de l'instruction ou tu veux qu'il s'arrête)
tu lance ton programme
puis tu attends qu'il arrive sur ta ligne
après (quand il te rend la main) tu passe ta souris sur le texte du prog pour connaitre l'état de tes variables
F7 pour avancer d'une instruction

et regarder l'aide sur le debug en delphi!

[djouahra.karim1]

le programme s'exécute mais il veut pas rentrée dans la boucle il s'arrête au niveau du teste avec la boucle While, donc il ne rentre pas dans le "corps" de la boucle While

[Nono40]

Est-ce que l'une des deux tables ne serait pas vide ?

[djouahra.karim1]

la deuxième table (EXPLL) est vide (avec le ds (datamodule2.ponctetchrgt))

[Nono40]

Alors c'est normal.... si la table est vide EOF est à vrai.

Encore une vois, dis nous ce que tu veux faire car je crois encore que tu n'es pas parti dans la bonne direction.

[djouahra.karim1]

je vais expliquer :

j'ai deux table EXPL et EXPLL, je veux transférer les données de EXPL vers EXPLL a condition que lorsque le champs de EXPL (EXSEQ) contient comme valeur blanc (sans valeur) la table EXPLL doit avoir la lettre Sdans cet enregistrement, et si lE CHAMPS exseq DE expl CONTIENT 51 OU 2 OU 3 OU 4) LE CHAMPS exseq DE expll DOITavoir la valeur blan (sans valeur)

PS : au debut la table EXPLL est vide