salut tout le monde
j'ai un petit souci avec mon programe
j'esséyé de copier de la table (tligne) les enregistrment qui on la marge=0 vers la table(Tablemarge)mais j'obtien ke le dernier enregistrment qui satisfait cette condition
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
 
tligne.First;                                                 
    while not tligne.Eof do                          
       begin                                                 
       if (tligne.FieldByName('marge').Asinteger=0 )then    
         begin
            Tablemarge.edit;          
            Tablemarge['x0'] := tligne['x0']  ;
            Tablemarge['y0'] := tligne['y0']  ;
            Tablemarge['xe'] := tligne['xe']  ;
            Tablemarge['ye'] := tligne['ye']  ;
            Tablemarge.Post;
           end;  
             tligne.Next;Tablemarge.Next;                                          
      end;
esque vous pouvé me dire ou est l'erreur