+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكل في كود انتهاء تاريخ الصلاحية او الدفع (/showthread.php?tid=35334)
مشكل في كود انتهاء تاريخ الصلاحية او الدفع - rochdi191 - 22-06-20
السلام عليكم
عندي مشكل في كود انتهاء تاريخ الصلاحية او الدفع
مع العلم اني اضع الكود التالي ويعمل 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
عند وضع تاريخ عدم الصلاحية في السطر الاول يعمل الكود بشكل جيد عند وضع الكود منتهي يقوم بتلوين الجدول باكمله سواء الاسطر المنتهية او غير المنتهية
ارجوا المساعدة والنصح
جزاكم الله خيرا
RE: مشكل في كود انتهاء تاريخ الصلاحية او الدفع - kiki - 22-06-20
عند وضع تاريخ عدم الصلاحية في السطر الاول
واللى هو ايه بضبط ؟؟؟
RE: مشكل في كود انتهاء تاريخ الصلاحية او الدفع - rochdi191 - 22-06-20
(22-06-20, 10:12 PM)kiki كتب : عند وضع تاريخ عدم الصلاحية في السطر الاول
واللى هو ايه بضبط ؟؟؟
عند وضع تاريخ لم تنتهي صلاحيته في السطر الاول في الحقل تاريخ الصلاحية كما في الصورة الاتية يشتغل الكود عادي مع العلم اني اضع في الكود يقوم بتنيه ب 3 ايام
اما عند وضع تاريخ انتهت صلاحيته في الحقل تاريخ الصلاحية في السطر الاول يقوم بتلوين الجدول باكمله
كما في الصورة الاتية
RE: مشكل في كود انتهاء تاريخ الصلاحية او الدفع - kiki - 22-06-20
للاسف الصورة الاولى لم تظهر معى استخدم هذا الموقع لرفع الصور
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
NextRE: مشكل في كود انتهاء تاريخ الصلاحية او الدفع - rochdi191 - 23-06-20
(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
RE: مشكل في كود انتهاء تاريخ الصلاحية او الدفع - kiki - 23-06-20
اذا تقصد انه تحول من اللون الاصفر الى الاخضر
بينما فى الصورة السابقة كان اصفر والباقي احمر كا كل
الام سيرجع بوجود الكود الاخر خاصة تعبئة بيانات الاعلى زر الخروج
والتى اشبق بالفلتر يقوم كالبحث لتحديد باللون الاصفر ومن الممكن هذا الكود يحتوى على else
لجعل الباقي باللون الاحمر ارفق المشروع او تاكد لما اشرت اليه
RE: مشكل في كود انتهاء تاريخ الصلاحية او الدفع - rochdi191 - 23-06-20
(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