السلام عليكم
عندي مشكل في كود انتهاء تاريخ الصلاحية او الدفع
مع العلم اني اضع الكود التالي ويعمل 3 ايام يقوم بتنبيه و التلوين
For Each Rw As DataGridViewRow In dgv.Rows
Rw.Cells("Remaindays").Value = DateDiff(DateInterval.Day, Rw.Cells("PcDate").Value, Rw.Cells("DateExpr").Value)
Next
'"""""""""""""""""""""""""""""""""""""""""""
For i As Integer = 0 To dgv.Rows.Count - 1
For ColNo As Integer = 1 To 7
If dgv.Rows(i).Cells(6).Value <= 3 Then
dgv.Rows(i).DefaultCellStyle.BackColor = Color.Red
End If
Next
Next
عند وضع تاريخ عدم الصلاحية في السطر الاول يعمل الكود بشكل جيد عند وضع الكود منتهي يقوم بتلوين الجدول باكمله سواء الاسطر المنتهية او غير المنتهية
ارجوا المساعدة والنصح
جزاكم الله خيرا
عند وضع تاريخ عدم الصلاحية في السطر الاول
واللى هو ايه بضبط ؟؟؟
(22-06-20, 10:12 PM)kiki كتب : [ -> ]عند وضع تاريخ عدم الصلاحية في السطر الاول
واللى هو ايه بضبط ؟؟؟
عند وضع تاريخ لم تنتهي صلاحيته في السطر الاول في الحقل تاريخ الصلاحية كما في الصورة الاتية يشتغل الكود عادي مع العلم اني اضع في الكود يقوم بتنيه ب 3 ايام
اما عند وضع تاريخ انتهت صلاحيته في الحقل تاريخ الصلاحية في السطر الاول يقوم بتلوين الجدول باكمله
كما في الصورة الاتية
للاسف الصورة الاولى لم تظهر معى استخدم هذا الموقع لرفع الصور
https://imgur.com/upload
بخصوص الصورة الثانية كل ما عليك هو هو استبدال كود For اللى اسفل
'"""""""""""""""""""""""""""""""""""""""""""
بهذا الكود
كود :
For i As Integer = 0 To dgv.Rows.Count - 1
If dgv.Rows(i).Cells(6).Value <= 3 Then
dgv.Rows(i).DefaultCellStyle.BackColor = Color.Red
End If
Next
(22-06-20, 11:29 PM)kiki كتب : [ -> ]للاسف الصورة الاولى لم تظهر معى استخدم هذا الموقع لرفع الصور
https://imgur.com/upload
بخصوص الصورة الثانية كل ما عليك هو هو استبدال كود For اللى اسفل
'"""""""""""""""""""""""""""""""""""""""""""
بهذا الكود
كود :
For i As Integer = 0 To dgv.Rows.Count - 1
If dgv.Rows(i).Cells(6).Value <= 3 Then
dgv.Rows(i).DefaultCellStyle.BackColor = Color.Red
End If
Next
جربت الكود اخي ولم يعمل معي
هذا رابط الصورة السابقة التي لم تظهر
https://imgur.com/QesEUTr
اذا تقصد انه تحول من اللون الاصفر الى الاخضر
بينما فى الصورة السابقة كان اصفر والباقي احمر كا كل
الام سيرجع بوجود الكود الاخر خاصة تعبئة بيانات الاعلى زر الخروج
والتى اشبق بالفلتر يقوم كالبحث لتحديد باللون الاصفر ومن الممكن هذا الكود يحتوى على else
لجعل الباقي باللون الاحمر ارفق المشروع او تاكد لما اشرت اليه
(23-06-20, 04:58 AM)kiki كتب : [ -> ]اذا تقصد انه تحول من اللون الاصفر الى الاخضر
بينما فى الصورة السابقة كان اصفر والباقي احمر كا كل
الام سيرجع بوجود الكود الاخر خاصة تعبئة بيانات الاعلى زر الخروج
والتى اشبق بالفلتر يقوم كالبحث لتحديد باللون الاصفر ومن الممكن هذا الكود يحتوى على else
لجعل الباقي باللون الاحمر ارفق المشروع او تاكد لما اشرت اليه
بارك الله فيك اخي kiki
لقد قمت بتعديل على الكود باضافة else if
فالكود يعمل بشكل جيد جزاك الله خيرا اخي
For i As Integer = 0 To dgv.Rows.Count - 1
If dgv.Rows(i).Cells(6).Value <= 3 Then
dgv.Rows(i).DefaultCellStyle.BackColor = Color.Red
ElseIf dgv.Rows(i).Cells(6).Value > 3 Then
dgv.Rows(i).DefaultCellStyle.BackColor = Color.Lime
End If
Next