delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله تعالى
الدلفي7
قاعدة البيانات ابسوليت داتاباز
كيف لي ان اعرف عدد السجلات التي تحتوي على نفس القيمة
واقصد
عندي مثلا 20 سجل بجدول Table1
منها 5 سجلات تحمل قيمة 1 بالحقل TNbre وهو من نوع integer
و 5 سجلات تحمل قيمة 3 بنفس الحقل
و 4 سجلات تحمل القيمة 2
و 6 سجلات تحمل 10
لقد حاولت باستعمال التعليمة RecordCount
بهذه الطريقة

كود :
if table1.Fieldvalues['TNbre']=1 Then n1:=table1.Recordcount;
label1.Caption:=inttostr(n1);
 
if table1.Fieldvalues['TNbre']=3 Then n2:=table1.Recordcount;
label2.Caption:=inttostr(n2);

if table1.Fieldvalues['TNbre']=2 Then n3:=table1.Recordcount;
label3.Caption:=inttostr(n3);

if table1.Fieldvalues['TNbre']=10 Then n4:=table1.Recordcount;
label4.Caption:=inttostr(n4);

لكن النتيجة التي تظهر هي مجموع كل السجلات
ما هو عدد السجلات التي تحل القيمة 1 ؟
بالتوفيق

السلام عليكم رحمة الله تعالى و بركاته:
أخي استعمل الفلترة لعلها تفي بالغرض
table1.fileter:='TNbre='''+'1'+'''';
table1.filetred:=true;
label2.Caption:=inttostr(n2);

بالتوفيق أخي

شكرا لك اخي الكريم وبارك الله فيك

medreg

makhlouf

medreg