وعليكم السلام ورحمة الله وبركاته
أولا قم باستخدام الكود التالي :
أدخله بحلقة (For) للتشييك على جميع اسطر الجدول المعروض لديك (MSHFlexGrid1)
في حال تكررت اسم فاكهة مرتين تعطي الامر بحذف السجل بالكود السابق (x_Row) تمثل رقم السطر المكرر للفاكهة التي تتحقق من تكراراها
بعد حذف كل سطر مكرر من الفاكهة ..
فيبقى فقط لديك اسماء الفواكه بدون تكرار ..
استخدم كود ضمن حلقة (For) أخرى
ليشيك على كل فاكهة في قاعدة البيانات (كم سجل لها موجود - بحسب مثالك هنا)
وضمن الحقل الخاص بالمجموع تكتب عدد السجلات التي وجدتها لكل مادة
يعني :
MSHFlexGrid1.TextMatrix(i, 4) = Rs2.RecordCount
الـ i :يمثل رقم السطر في MSHFlexGrid1 في مشروعك ضمن الحلقة For
---
في حال عدلت مشروعك وأصبحت تكتب الكمبيات المخرجة في حقل Total في قاعدة البيانات :
عندها يجب عليك استخدام دالة الجمع عبر اوامر SQL ليجمع لك قيمة حقل مادة ما
من قاعدة البيانات لتضعها في حقل المجموع في (MSHFlexGrid1) .
يعني :
MSHFlexGrid1.TextMatrix(i, 4) = Rs2!SumTotal
في حال SumTotal هو مجموع حقل الكميات لكل فاكهة بحسب أمر الجمع الموجود في الـ SQL
مثلا كود الـ SQL يكون كالتالي:
---
أولا قم باستخدام الكود التالي :
كود :
MSHFlexGrid1.RemoveItem x_Rowفي حال تكررت اسم فاكهة مرتين تعطي الامر بحذف السجل بالكود السابق (x_Row) تمثل رقم السطر المكرر للفاكهة التي تتحقق من تكراراها
بعد حذف كل سطر مكرر من الفاكهة ..
فيبقى فقط لديك اسماء الفواكه بدون تكرار ..
استخدم كود ضمن حلقة (For) أخرى
ليشيك على كل فاكهة في قاعدة البيانات (كم سجل لها موجود - بحسب مثالك هنا)
وضمن الحقل الخاص بالمجموع تكتب عدد السجلات التي وجدتها لكل مادة
يعني :
MSHFlexGrid1.TextMatrix(i, 4) = Rs2.RecordCount
الـ i :يمثل رقم السطر في MSHFlexGrid1 في مشروعك ضمن الحلقة For
---
في حال عدلت مشروعك وأصبحت تكتب الكمبيات المخرجة في حقل Total في قاعدة البيانات :
عندها يجب عليك استخدام دالة الجمع عبر اوامر SQL ليجمع لك قيمة حقل مادة ما
من قاعدة البيانات لتضعها في حقل المجموع في (MSHFlexGrid1) .
يعني :
MSHFlexGrid1.TextMatrix(i, 4) = Rs2!SumTotal
في حال SumTotal هو مجموع حقل الكميات لكل فاكهة بحسب أمر الجمع الموجود في الـ SQL
مثلا كود الـ SQL يكون كالتالي:
كود :
Rs2.Open "Select Sum(Total)As SumTotal From table1 Where Date >='01/01/2020' and Date <='31/12/2021'"---
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».