كيف يمكنني تحويل قيمة من سجل الى اخر

[محمد عبد العزيز]

كود :

Var St: String; begin Table1.First; while not Table1.EOF do begin if Table1.RecNo>1 then begin Table1.Edit; Table1.fieldbyname('Nbre_Ant').value :=St; Table1.Post; end; St:=Table1.fieldbyname('Nbre_Tot').AsString; Table1.Next; end; end;