تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكل في كود انتهاء تاريخ الصلاحية او الدفع
#1
السلام عليكم
عندي مشكل في كود انتهاء تاريخ الصلاحية او الدفع
مع العلم اني اضع الكود التالي ويعمل 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



عند وضع تاريخ عدم الصلاحية في السطر الاول يعمل الكود بشكل جيد عند وضع الكود منتهي يقوم بتلوين الجدول باكمله سواء الاسطر المنتهية او غير المنتهية
ارجوا المساعدة والنصح
جزاكم الله خيرا
الرد
تم الشكر بواسطة:
#2
عند وضع تاريخ عدم الصلاحية في السطر الاول
واللى هو ايه بضبط ؟؟؟
الرد
تم الشكر بواسطة:
#3
(22-06-20, 10:12 PM)kiki كتب : عند وضع تاريخ عدم الصلاحية في السطر الاول
واللى هو ايه بضبط ؟؟؟

عند وضع تاريخ لم تنتهي صلاحيته في السطر الاول في الحقل تاريخ الصلاحية كما في الصورة الاتية يشتغل الكود عادي مع العلم اني اضع في الكود يقوم بتنيه ب 3 ايام




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

كما في الصورة الاتية

الرد
تم الشكر بواسطة:
#4
للاسف الصورة الاولى لم تظهر معى استخدم هذا الموقع لرفع الصور
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
الرد
تم الشكر بواسطة:
#5
(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
الرد
تم الشكر بواسطة:
#6
اذا تقصد انه تحول من اللون الاصفر الى الاخضر
بينما فى الصورة السابقة كان اصفر والباقي احمر كا كل
الام سيرجع بوجود الكود الاخر خاصة تعبئة بيانات الاعلى زر الخروج
والتى اشبق بالفلتر يقوم كالبحث لتحديد باللون الاصفر ومن الممكن هذا الكود يحتوى على else
لجعل الباقي باللون الاحمر ارفق المشروع او تاكد لما اشرت اليه
الرد
تم الشكر بواسطة: عبد العزيز البسكري
#7
(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
الرد
تم الشكر بواسطة: kiki



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم