تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة عند البحث بالداتا جريد فيو
#1
استخدمت الكود التالي للبحث بصفوف الداتا جريد فيو عن قيمة معينة بالتيكست بوكس لو موجودة يلون الصف باللون الاحمر ولو غير موجودة يرجع الي اللون الاصلي ويزيل اللون الاحمر

الكود يبحث وياتي بالمطلوب ولكن اذا لم اضع شيء بالتيكست بوكس يلون جميع الصفوف ولا يزيل اللون الاحمر بالصفوف
اريد اذا لم يكن هناك قيمة بالتيكست بوكس يزيل اللون الاحمر المحدد للصفوف من سابق البحث ولايبحث اصلا
مع العلم ان كل الخلايا الخاصة بالبحث بها قيم وليست فارغة او بها خلايا فارغة


كود :
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
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
مشكلة عند البحث بالداتا جريد فيو - بواسطة محمد اسماعيل - 19-02-18, 08:12 PM


التنقل السريع :


يقوم بقرائة الموضوع: