(19-08-18, 07:20 PM)elgokr كتب :

اذا كنت تريد حتى العمود الخاص بالاختبار السادس قبل الامتحان

فهذا يعنى العمود رقم 7

فكل ما عليك حذف هذه الجملة

كود :

DataGridView1.ColumnCount - 1

وتكتب بدالها فقط 7

طبق التعديل اذا كان على طالب واحد للكود الموجود فى الرد الاخير

وكذلك طبق التعديل على الاكواد المذكورة بالاعلى لجلب جميع الطلاب

راجع الرد السابق تم اضافة اكواد اضافية

تحياتى لك

وتمنياتى لك التوفيق

(19-08-18, 09:21 PM)elgokr كتب :

الان الصورة وضحت كاملاً

كان دائماً يعطى الاجمالى 6 و 3 حيث ليس لديك اى بيانات فى اى خلايا

والسبب يرجع هنا لانك مفعل الاضافة فى الداتا جريد فستجد بالنهاية الداتا جريد

صف محصص لاضافة بيان جديد والتى تحتوى على قيمة وهمية لذلك كان يتم جلبها كا مجموع

ولتفادى ذلك دون تعطيل الاضافة تم تحويل السطر التالى

كود :

For i As Integer = 0 To DataGridView1.RowCount - 1

ليصبح السطر بهذا الشكل

كود :

For i As Integer = 0 To DataGridView1.RowCount - 2

ولتجنباً ايضاً لاى مشكلة اخرى تم تغيير كوط شرط التحقق الى التالى

كود :

               REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
               If TypeOf DataGridView1.Rows(i).Cells(ii).Value Is DBNull = False Then
                   count1 += 1
               End If

وبما انك بتستخدم TextBox2 فى امور اخرى

تم تغيير هذا السطر

كود :

       REM نتائج اى عدد الخلايا التى تحتوى على قيمة فى خلايا الامتحانات
       TextBox2.Text = count2

ليصبح

كود :

       REM نتائج اى عدد الخلايا التى تحتوى على قيمة فى خلايا الامتحانات
       TextBox11.Text = count2

السورس + برنامج للاختبار الكود مرفق

بعد اتمام جميع التعديلات وبعض اللمسات 

فى عرض المجموع فى التصميم

وكما وضحت مسبقاً ان ما تطلبه بسيط جداً

ولكن كل ما يحتاج اليه هو التركيز فقط ويبدو بسبب الملل فى كثرة تجربة الاكواد

اصبحت فاقد الامل بان لا وجود لحل لاحظ التعديل فى السورس وبين الاكواد التى قمت بوضعها جميعا

تحياتى لك

وتمنياتى لك التوفيق

(19-08-18, 09:32 PM)kebboud كتب :

(19-08-18, 09:21 PM)elgokr كتب :

الان الصورة وضحت كاملاً

كان دائماً يعطى الاجمالى 6 و 3 حيث ليس لديك اى بيانات فى اى خلايا

والسبب يرجع هنا لانك مفعل الاضافة فى الداتا جريد فستجد بالنهاية الداتا جريد

صف محصص لاضافة بيان جديد والتى تحتوى على قيمة وهمية لذلك كان يتم جلبها كا مجموع

ولتفادى ذلك دون تعطيل الاضافة تم تحويل السطر التالى

كود :

For i As Integer = 0 To DataGridView1.RowCount - 1

ليصبح السطر بهذا الشكل

كود :

For i As Integer = 0 To DataGridView1.RowCount - 2

ولتجنباً ايضاً لاى مشكلة اخرى تم تغيير كوط شرط التحقق الى التالى

كود :

               REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
               If TypeOf DataGridView1.Rows(i).Cells(ii).Value Is DBNull = False Then
                   count1 += 1
               End If

وبما انك بتستخدم TextBox2 فى امور اخرى

تم تغيير هذا السطر

كود :

       REM نتائج اى عدد الخلايا التى تحتوى على قيمة فى خلايا الامتحانات
       TextBox2.Text = count2

ليصبح

كود :

       REM نتائج اى عدد الخلايا التى تحتوى على قيمة فى خلايا الامتحانات
       TextBox11.Text = count2

السورس + برنامج للاختبار الكود مرفق

بعد اتمام جميع التعديلات وبعض اللمسات 

فى عرض المجموع فى التصميم

وكما وضحت مسبقاً ان ما تطلبه بسيط جداً

ولكن كل ما يحتاج اليه هو التركيز فقط ويبدو بسبب الملل فى كثرة تجربة الاكواد

اصبحت فاقد الامل بان لا وجود لحل لاحظ التعديل فى السورس وبين الاكواد التى قمت بوضعها جميعا

تحياتى لك

وتمنياتى لك التوفيق

الله اكبر 
كم انت عظيم يا استاذ العرب
و الله فرحت جدا جدا بهذه المساعدة التي عجز عنها الكثير من الاصدقاء
حفظك الله و ادامك لنا 
 
شكرا شكرا 
أنا الآن سعيد جدا

(19-08-18, 09:54 PM)elgokr كتب :

فرحتك كما هخى اخى الفاضل

فقط استبدل الكود الذى بداخل الزر

بالكود التالى

كود :

       Dim count1, count2 As Integer

       REM سيبداء احتساب الاعداد للخلايا التى تحتوى على قيمة
       REM من العمود الاختبار الاول حتى العمود الاختبار السادس
       For ii As Integer = 2 To 7
           REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
           If TypeOf DataGridView1.CurrentRow.Cells(ii).Value Is DBNull = False Then
               count1 += 1
           End If
       Next

       REM سيبداء احتساب الاعداد للخلايا التى تحتوى على قيمة
       REM من العمود الامتحان الأول حتى العمود الأمتحان الثالث
       For ii As Integer = 8 To 10
           REM الشرط هنا هو للتحقق ان يجب ان يكون الخلايا تحتوى على قيمة وليست فارغة أو تساوى 0
           If TypeOf DataGridView1.CurrentRow.Cells(ii).Value Is DBNull = False Then
               count2 += 1
           End If
       Next

       REM نتائح اى عدد الخلايا التى تحتوى على قيمة فى خلايا الاختبار
       TextBox1.Text = count1
       REM نتائج اى عدد الخلايا التى تحتوى على قيمة فى خلايا الامتحانات
       TextBox11.Text = count2

وبكده سيعرض الاجمالى للطالب الواحد لحب المحدد

تحياتى لك

وتمنياتى لك التوفيق

(19-08-18, 10:04 PM)elgokr كتب :

الحمد لله

هذا يسعدنى 

تحياتى لك

وتمنياتى لك التوفيق

(20-08-18, 05:49 AM)elgokr كتب :

فى هذه الحالة ستحتاج الى اتمام ذلك

من خلال الاستعلام فى قاعدة البيانات لكن فى هذه الحالة الاعمدة ستكون فارغة دائماً

فى قاعدة البيانات عكس ما يظهر فى الداتا جريد لذلك يفضل الخيار التاني وهو

من خلال اضافة وتعديل بيانات الاختبار للطالب

فعند تحديد الامتحانات والغيابات يقوم بعمل تلك المعادلات الحسابية

وعند عمل حفظ للتعديل يرحل القيمة المعادلة الى الاعمدة المطلوبة للحفظ

وبكدة ستكون ابسط طريقة تقوم بعمل ذلك

دون اى تعقيدات من اكواد وغيره ودون عمل استعلام مكثف ومعقد

اتمنى ان الفكرة وضحت وان تعاملك معها بسيط

تحياتى لك

وتمنياتى لك التوفيق