كيف يمكنني جمع بعض السجلات

[medreg]

السلام عليكم ورحمة الله تعالى وبركاته

لدي في قادة البيانات حقلين
الحقل الأول يسمى = ART
الحقل الثاني يسمى MONTANT

ولدي حقل في قاعدة اخرى اسمه TOT_ART

وعلي ان اجمع عدد من السجلات
ولنفرض انه لدي مجموعتين في الحقل ART
المجموعة الآولى تبدأ من رقم 50 إلى رقم 55
والثانية تبدأ من رقم 60 الى رقم 65

الملوب هو إذا كان الحقل ART يساوي من 50 الى 55 اجمع مبلغ هذه المجموعة وضعه في الحقل TOT_ART
مثلا:
procedure button
var t:real;
begin
t:=0;
table1 first;
while not table1.Eof do
begin
if table1.fieldbyname('ART').asstring:='50 ' then
t:=t+table1.fieldbyname('MONTANT'').asfloat;
table.next
end;
while not table2.Eof do
begin
table2.Delete;
end;
table2.Edit;
table2.FieldByName('TOT_ART').asFloat:=t;
table2.post;

كهذا المثال الا بدلا من ان اجعل لكل رقم كود او امر كهذا
حبذا لو كان الأمر يشترط فيه من و إلى اي من 50 إى 55
from 50 to 55
انشاء الله اكون قد وفقت في طرح السؤال

[medreg]

السلام عليكم
ربما السؤال غير مفهوم وايضا ربما عنوان الموضوع غير مناسب

فحاولت تلخيص الشرح في هذا المرفق
اظن انه مناسب للسؤال

[medreg]

جزاكم الله عنا كل خير
لقد شغلت ذاكرتي نوعًا ما وادركت الحل وربما اكون قد وفقت
if (table1.fieldbyname('ART').asstring<='50') and (table1.fieldbyname('ART').asstring >='55') then
t:=t+table1.fieldbyname('MONTANT').asfloat;
ربما هذا هو الحل