السلام عليكم....
عندي قاعدة اكسس وفي داتا جريد فيو وهذه الداتا بها اسماء واعمار
مثل الاسم..... العمر
اسامه..... 20
احتاج كود لو حقل العمر اكبر من 17 سنة يقوم بتعليم الحقل وحده فقط باللون الاحمر ولو امكن حقل العمر فقط يبقي تمام.
وشكرا لكم.
PHP كود :
Private Sub GV_CellFormatting(ByVal sender As Object, ByVal e As DataGridViewCellFormattingEventArgs)
For Each drview As DataGridViewRow In GV.Rows
Dim ColNo As Integer = 2
While (ColNo <= 2)
If Not (drview.Cells(2).Value Is Nothing) Then
If (Convert.ToInt32(drview.Cells(2).Value) > 17) Then
drview.Cells(2).Style.BackColor = Color.Red
ElseIf (Convert.ToInt32(drview.Cells(2).Value) <= 17) Then
drview.Cells(2).Style.BackColor = Color.White
End If
End If
ColNo += 1
End While
Next
End Sub
شكرا شكرا شكر لك اخي العزيز.
ولكن اخي هل ممكن ميظللش العمود كلة يعني الرقم فقط اللي اكبر من 17 يظهر بالاحمر.
(14-04-19, 07:03 PM)اسامه الهرماوي كتب : [ -> ]ولكن اخي هل ممكن ميظللش العمود كلة يعني الرقم فقط اللي اكبر من 17 يظهر بالاحمر.
وضح اكثر اخي لم افهم عليك.
For u = 0 To DataGridView1.Rows.Count - 1
If DataGridView1.Rows(u).Cells(2).Value.ToString.Contains > 17 Then
DataGridView1.Rows(u).DefaultCellStyle.BackColor = Color.Red
End If
Next
اخواني المقصود كالاتي العمر 18 الي النهاية يظهر علي العمر فقط علامة مثل الصورة التالية.
السلام عليكم اخي الكريم
عذرا على التأخير في الرد
اليك الكود التالي حيث يلون الرقم الموجود في العمود رقم 2 (اي ثالث عمود) اذا كان اكبر من 17
وان اردت تلوين الخلية فاستبدل كلمة Forcolor بـ Backcolor
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = 0 To DataGridView1.Rows.Count - 1
If DataGridView1.Rows(i).Cells(2).Value > 17 Then
DataGridView1.Rows(i).Cells(2).Style.ForeColor = Color.Red
End If
Next
End Sub
السلام عليكم...
هذا هو الكود للإفادة.
كود :
Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
If Me.DataGridView1.Rows(e.RowIndex).Cells("العمر").Value > 18 Then
Me.DataGridView1.Rows(e.RowIndex).Cells("العمر").Style.BackColor = Color.Red
End If
End Sub