منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
أحتاج كود يغير لون صف أو اكثر من صف في داتا غريد فيو بناء على شرط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : أحتاج كود يغير لون صف أو اكثر من صف في داتا غريد فيو بناء على شرط (/showthread.php?tid=20185)

أحتاج كود يغير لون صف أو اكثر من صف في داتا غريد فيو بناء على شرط - samawi - 29-04-17

السلام عليكم 

كتبت هذا الكود يغير لون صف او اكثر في الداتا جريد فيو 
واشتغل فترة وبعدها لم يشتغل 

PHP كود :
Sub movecolor()
        For m As Integer = 0 To DVG.Rows.Count - 1
            Dim n As String = DVG.Rows(m).Cells(7).Value
            If n <= 1 Then
                DVG.CurrentCell = DVG.Rows(m).Cells(0)
                DVG.Rows(m).DefaultCellStyle.BackColor = Color.Red
                'DVG.Rows(m).Selected = False
            Else
                DVG.Rows(m).DefaultCellStyle.BackColor = Color.White
                ' DVG.Rows(m).Selected = False
            End If
            n = ""
        Next
    End Sub 


RE: أحتاج كود يغير لون صف أو اكثر من صف في داتا غريد فيو بناء على شرط - rmlq - 29-04-17

كود :
Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DVG.CellFormatting
        If DVG.Item(7, e.RowIndex).Value <= 1 Then
            DVG.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Red
        Else
            DVG.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
        End If
    End Sub


RE: أحتاج كود يغير لون صف أو اكثر من صف في داتا غريد فيو بناء على شرط - samawi - 29-04-17

(29-04-17, 12:23 AM)rmlq كتب :
كود :
   Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DVG.CellFormatting
       If DVG.Item(7, e.RowIndex).Value <= 1 Then
           DVG.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Red
       Else
           DVG.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
       End If
   End Sub

أشكرك اخي العزيز من اعماق قلبي