تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية ربط ماكينة الدفع ببرنامج الكاشير ؟ osamaelmaghraby 3 324 26-12-23, 11:53 PM
آخر رد: osamaelmaghraby
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 909 11-10-23, 10:35 PM
آخر رد: aljzazy
  عندما اقوم بالاستعلام عن تاريخ معين بواسطة SELECT لايقوم بتحديد نفس تاريخ اليوم moh61 1 403 13-08-23, 01:06 PM
آخر رد: تركي الحلواني
  مشكل إختفاء الفرومات من مشروع YANNOURI 1 439 13-04-23, 03:41 AM
آخر رد: Taha Okla
  [VB.NET] اريد طريقة حساب فرق بين تاريخ موجود في لست فيو وتاريخ الجهاز mac9 4 709 11-04-23, 10:23 AM
آخر رد: mac9
  [Acces2007] نشر تاريخ الشهر في أعمدة الداتا جريد فيو ابو ايمن شعيب 0 330 16-03-23, 07:13 PM
آخر رد: ابو ايمن شعيب
  [VB.NET] مشكل ثقل الكريستال mostafa23 0 297 14-02-23, 11:31 AM
آخر رد: mostafa23
Rainbow [كود] حساب تاريخ +عدد ايام لتكون النتيجه بعد الحساب =تاريخ محمد مسافر 1 472 14-09-22, 12:05 AM
آخر رد: Taha Okla

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


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