19-02-18, 08:12 PM
استخدمت الكود التالي للبحث بصفوف الداتا جريد فيو عن قيمة معينة بالتيكست بوكس لو موجودة يلون الصف باللون الاحمر ولو غير موجودة يرجع الي اللون الاصلي ويزيل اللون الاحمر
الكود يبحث وياتي بالمطلوب ولكن اذا لم اضع شيء بالتيكست بوكس يلون جميع الصفوف ولا يزيل اللون الاحمر بالصفوف
اريد اذا لم يكن هناك قيمة بالتيكست بوكس يزيل اللون الاحمر المحدد للصفوف من سابق البحث ولايبحث اصلا
مع العلم ان كل الخلايا الخاصة بالبحث بها قيم وليست فارغة او بها خلايا فارغة
الكود يبحث وياتي بالمطلوب ولكن اذا لم اضع شيء بالتيكست بوكس يلون جميع الصفوف ولا يزيل اللون الاحمر بالصفوف
اريد اذا لم يكن هناك قيمة بالتيكست بوكس يزيل اللون الاحمر المحدد للصفوف من سابق البحث ولايبحث اصلا
مع العلم ان كل الخلايا الخاصة بالبحث بها قيم وليست فارغة او بها خلايا فارغة
كود :
Dim DarkTurquoise As Integer = 0
For i As Integer = 0 To DataGridView1.RowCount - 1
If TextBox3.Text = "" Then
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Empty
Label2.Text = "عدد"
Exit Sub
ElseIf DataGridView1.Rows(i).Cells(4).Value.ToString.Contains(TextBox3.Text.ToLower) Then
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Red
If DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Red Then
DarkTurquoise += 1
End If
ElseIf Not DataGridView1.Rows(i).Cells(4).Value.ToString.Contains(TextBox3.Text.ToLower) Then
DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.Empty
Label2.Text = "عدد"
End If
Next
Label2.Text = DarkTurquoise