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

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

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكنني تحويل قيمة من سجل الى اخر (/showthread.php?tid=9085)

الصفحات: 1 2

RE: كيف يمكنني تحويل قيمة من سجل الى اخر - medreg - 03-01-2018

(03-01-2018, 08:39 PM)AX302 كتب : جرب هكدا

كود :
Var St: String; FirstRecord : integer; begin Table1.First; FirstRecord := Table1.FieldByName('Nbre_Tot').AsInteger; while not Table1.EOF do begin if (Table1.RecNo=1) and (FirstRecord = 0) then St:='0'; Table1.Edit; Table1.fieldbyname('Nbre_Ant').value :=St; Table1.Post; St:=Table1.fieldbyname('Nbre_Tot').AsString; Table1.Next; end; end; end;

اثناء التنفيذ تظهر رسالة خطأ تقول
valeur incorrecte pour le champ 'Nbre_Ant'
عندما يكون الحقل يحتوي على القيمة اكبر من 0 واقصد بالنسبة للسجل رقم 1

RE: كيف يمكنني تحويل قيمة من سجل الى اخر - محمد عبد العزيز - 03-01-2018

كود :
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;

RE: كيف يمكنني تحويل قيمة من سجل الى اخر - medreg - 03-01-2018

(03-01-2018, 08:51 PM)B.M.AbdelAziZ كتب :
كود :
بارك الله فيك