[dubai.eig]

(25-02-19, 10:58 PM)elgokr كتب :

وعليكم السلام ورحمة الله وبركاته

فقط استبدل الاسطر المذكور بهذا 

كود :

       For intI = DataGridView1.RowCount - 1 To 0 Step -1
           For intJ = DataGridView1.ColumnCount - 1 To 0 Step -1

لكن سؤال واحد فقط لماذا تستخدم intJ بداخل intI

بما انك تقوم بتلوين الصفوف مباشراً وليس خلية واحدة

فيكفي فقط استخدام على هذا النحو

كود :

       For intI = DataGridView1.RowCount - 1 To 0 Step -1

خلاف نقطة التحقق المتكررة اذا كان فارغ او بدون 

لا يقوم بعمل اى شئ

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

مثل ما هو موضح هنا

كود :

              If IsDBNull(DataGridView1.Rows(intI).Cells(8).Value) Then

              ElseIf DataGridView1.Rows(intI).Cells(8).Value = "C" Then
                  DataGridView1.Rows(intI).DefaultCellStyle.BackColor = Color.FromArgb(&HCC, &H0, &H0)
              End If

على العموم استبدل الكود كاملاً المذكور بموضوعك بهذا الشكل ليكون افضل معك

كود :

       For intI = 0 To DataGridView1.RowCount - 1
           If DataGridView1.Rows(intI).Cells(8).Value = "M" Then
               DataGridView1.Rows(intI).DefaultCellStyle.BackColor = Color.FromArgb(&HFF, &HFF, &H66)
           ElseIf DataGridView1.Rows(intI).Cells(8).Value = "B" Then
               DataGridView1.Rows(intI).DefaultCellStyle.BackColor = Color.LimeGreen
           ElseIf DataGridView1.Rows(intI).Cells(8).Value = "M/B" Then
               DataGridView1.Rows(intI).DefaultCellStyle.BackColor = Color.Violet
           ElseIf DataGridView1.Rows(intI).Cells(8).Value = "C" Then
               DataGridView1.Rows(intI).DefaultCellStyle.BackColor = Color.FromArgb(&HCC, &H0, &H0)
           Else
               DataGridView1.Rows(0).DefaultCellStyle.BackColor = Color.White
           End If
       Next

تحياتى لك

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

تسلم اايدك بارك الله فيك

دائما والحمدالله نستفيد منكم

ضبط والحمدالله وكل شي تمام

احسنت استاذي لا حرمنا منك