تمت الإجابة مشكل كود تلوين خلية بشرط

تم تحميل الصفحة في 1,6791760 ثانية
مشكل كود تلوين خلية بشرط
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
3 يونيو 2014
المشاركات
556
الإعجابات
497
النقاط
93
الإقامة
★َAlGeRiA★
السلام عليكم اخواني لدي طلب بسيط وهو متمثل في كود يغير لون الخلية التي محتواها [السن]
يعني اريد لما يكون السن من 1 الى 6 سنوات تصير الخلايا حمراء
و من 6 الى 10 سنوات باللون الاصفر
جربت هذا الكود و لم ينجح

Private Sub DataGridView1_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting


If Not e.RowIndex = DataGridView1.NewRowIndex Then
If e.ColumnIndex = DataGridView1.Columns("High").Index Then
If e.Value.ToString = "4" Then
e.CellStyle.BackColor = Color.LightSkyBlue
ElseIf e.ColumnIndex = DataGridView1.Columns("High").Index Then

If e.Value.ToString = "5" Then
e.CellStyle.BackColor = Color.Green
End If
End If
End If
End If

'("X2") & " ")

End Sub
End Class
 
إنضم
3 يونيو 2014
المشاركات
556
الإعجابات
497
النقاط
93
الإقامة
★َAlGeRiA★
Private Sub TableDataGridView_CellFormatting(sender As Object, z As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles TableDataGridView.CellFormatting


If Not z.RowIndex = TableDataGridView.NewRowIndex Then
If z.ColumnIndex = TableDataGridView.Columns("AGE").Index Then
If z.Value.ToString = "4" Then
z.CellStyle.BackColor = Color.LightSkyBlue


End If
End If
End If




End Sub
End Class
 
إنضم
3 يونيو 2014
المشاركات
556
الإعجابات
497
النقاط
93
الإقامة
★َAlGeRiA★
تم

Private Sub TableDataGridView_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles TableDataGridView.CellFormatting


If Not e.RowIndex = TableDataGridView.NewRowIndex Then
If e.ColumnIndex = TableDataGridView.Columns("DataGridViewTextBoxColumn5").Index Then
If e.Value.ToString <= 5 Then
e.CellStyle.BackColor = Color.LightSkyBlue
ElseIf e.ColumnIndex = TableDataGridView.Columns("DataGridViewTextBoxColumn5").Index Then

If e.Value.ToString <= 10 Then
e.CellStyle.BackColor = Color.Green
End If
End If
End If
End If



End Sub
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل