Discussion :

[alainvh]

Bonjour.
Mon projet : balayer une liste de numéros d'enregistrement (RecNo) et atteindre les enregistrements correspondant à ces numéros. Ça marche, voici mon code :

Code :

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

1
2
3
4
5
6
7
 
// dans la boucle de balayage, je récupère un numéro nommé ici NumRecNo
// pour atteindre l'enregistrement :
   NumRecNo:=NumRecNo-1;
   Form1.Table1.First;
   if NumRecNo > 0 then
      Form1.TableEssai.MoveBy(NumRecNo);

Connaissez-vous plus élégant (façon GoTo NumRecNo comme dans mon vieux Clipper 5) ?
D'avance merci.
Alain

[Aka Guymelef]

Bonjour,

à défaut d'être plus élégant, la propriété RecNo est en lecture/écriture ce qui vous permettra de faire directement :

Code :

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

Form1.TableEssai.RecNo := NumRecNo;

Mais surtout utiliser le RecNo avec MoveBy est potentiellement source d'erreur. MoveBy déplacement l'enregistrement courant du nombre d'enregistrements passé en paramètre. Donc un NumRecNo de 4 ne fait pas forcément aller à l'enregistrement n° 4 mais déplace l'enregistrement de 4 positions vers l'avant (équivalant de 4 fois Next).

Donc surtout ne pas utiliser RecNo et MoveBy.

[alainvh]

Merci beaucoup !
Cette solution est évidemment plus élégante puisque plus concise.
Bonne fin d'après-midi.
Cordialement,
Alain