السلام عليكم ورحمة الله وبركاته
انا لدي داتاجريد فيو فيه عدد من الاعمده ثلاثه اعمده اريد ان تكون خلفية الخليه بلون معين عند تكون القيمة مثلا تم الارسال اريد الخلفيه تكون خضراء وقيد الارسال تكون حمرا
هذا بالعمود الاول العمود الثاني تم الاستلام وقيد الاستلام والثالث تم التاكيد وقيد التاكيد
انا بالطبع استخدمت كون ولاكن غير مريح واحس انه ملخبط شوي
لذا ارجو مساعدتي
تم حل المشكله وللمعلوميه تم عبر الكود التالي واتمنى ان يفيد اي احد اخر
انا لدي داتاجريد فيو فيه عدد من الاعمده ثلاثه اعمده اريد ان تكون خلفية الخليه بلون معين عند تكون القيمة مثلا تم الارسال اريد الخلفيه تكون خضراء وقيد الارسال تكون حمرا
هذا بالعمود الاول العمود الثاني تم الاستلام وقيد الاستلام والثالث تم التاكيد وقيد التاكيد
انا بالطبع استخدمت كون ولاكن غير مريح واحس انه ملخبط شوي
كود :
ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) _
Handles DGV_send.CellFormatting
On Error Resume Next
' Check if this is the right column.
If DGV_send.Columns(e.ColumnIndex).Name = "note1" Then
' Check if this is the right value.
If e.Value = "تم الارسال" Then
e.CellStyle.ForeColor = Color.Black
e.CellStyle.BackColor = Color.Green
لذا ارجو مساعدتي
تم حل المشكله وللمعلوميه تم عبر الكود التالي واتمنى ان يفيد اي احد اخر
كود :
Public Sub color_note1()
For i As Integer = 0 To Me.DGV_send.Rows.Count - 1
If Me.DGV_send.Rows(i).Cells("note1").Value = "تم الارسال" Then
Me.DGV_send.Rows(i).Cells("note1").Style.BackColor = Color.Green
End If
Next
End Sub
Public Sub color_note2()
For i As Integer = 0 To Me.DGV_send.Rows.Count - 1
If Me.DGV_send.Rows(i).Cells("note2").Value = "قيد التسليم" Then
Me.DGV_send.Rows(i).Cells("note2").Style.BackColor = Color.Red
ElseIf Me.DGV_send.Rows(i).Cells("note2").Value = "تم التسليم" Then
Me.DGV_send.Rows(i).Cells("note2").Style.BackColor = Color.Green
End If
Next
End Sub
Public Sub color_note3()
For i As Integer = 0 To Me.DGV_send.Rows.Count - 1
If Me.DGV_send.Rows(i).Cells("note3").Value = "قيد التاكيد" Then
Me.DGV_send.Rows(i).Cells("note3").Style.BackColor = Color.Red
ElseIf Me.DGV_send.Rows(i).Cells("note3").Value = "تم التاكيد" Then
Me.DGV_send.Rows(i).Cells("note3").Style.BackColor = Color.Green
End If
Next
End Sub