تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:
#2
احذف Exit Sub
الرد
تم الشكر بواسطة: محمد اسماعيل
#3
(19-02-18, 08:44 PM)طالب برمجة كتب : احذف Exit Sub

طيب انا بدلتها  Exit For

ومخرجش من الحلقة

وفعلا كما قلت احذفExit Sub والكود اشتغل جيد جدا

ما المشكلة لم افهم لما لم يخرج من الحلقة التكرارية
الرد
تم الشكر بواسطة:
#4
بالنسبة Exit Sub يخرج من ال Sub كامل
أما بالنسبة Exit For يخرج من الحلقة For ويكمل بعدها، لكن بما انه لا يوجد كود بعد Next فستكون النتيجة متشابهة

PHP كود :
Dim DarkTurquoise As Integer 0
For As Integer 0 To DataGridView1.RowCount 1
    If TextBox3
.Text "" Then
        DataGridView1
.Rows(i).DefaultCellStyle.BackColor Color.Empty
 
   ElseIf DataGridView1.Rows(i).Cells(4).Value.ToString.Contains(TextBox3.Text.ToLowerThen
        DataGridView1
.Rows(i).DefaultCellStyle.BackColor Color.Red
        DarkTurquoise 
+= 1
    End 
If
Next
Label2
.Text "عدد: " DarkTurquoise 
الرد
تم الشكر بواسطة:
#5
(19-02-18, 09:44 PM)طالب برمجة كتب : بالنسبة Exit Sub يخرج من ال Sub كامل
أما بالنسبة Exit For يخرج من الحلقة For ويكمل بعدها، لكن بما انه لا يوجد كود بعد Next فستكون النتيجة متشابهة

PHP كود :
Dim DarkTurquoise As Integer 0
For As Integer 0 To DataGridView1.RowCount 1
    If TextBox3
.Text "" Then
        DataGridView1
.Rows(i).DefaultCellStyle.BackColor Color.Empty
 
   ElseIf DataGridView1.Rows(i).Cells(4).Value.ToString.Contains(TextBox3.Text.ToLowerThen
        DataGridView1
.Rows(i).DefaultCellStyle.BackColor Color.Red
        DarkTurquoise 
+= 1
    End 
If
Next
Label2
.Text "عدد: " DarkTurquoise 

مجهود كبير اشكر ك علية

بس سؤال بسيط ما الفرق بين  في نهاية الحلقة  next   , next i


يعني بشوف حلقات فيها نيكست والمتغير واخري نيكست فقط مش فاهم الفرق ممكن توضحلي
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] البحث داخل listview farfour 8 146 12-11-19, 10:24 PM
آخر رد: farfour
  مشكلة إصابة الملف التنفيذي بفيروسات princelovelorn 1 54 12-11-19, 09:26 AM
آخر رد: princelovelorn
  داتا جريد فيو amir_adam83 5 126 11-11-19, 12:40 AM
آخر رد: ابراهيم ايبو
  طلب فى تصدير بيانات 2 داتا جريد فيو الى الاكسل خالد كامل1 1 69 11-11-19, 12:04 AM
آخر رد: ابراهيم ايبو
  مشكلة اضافة قيمة للريجسترى ابو روضة 6 177 06-11-19, 12:50 AM
آخر رد: ابو روضة
Sad [SQL] مشكلة عند تشغيل السيكوال اسامه الهرماوي 3 134 04-11-19, 12:56 AM
آخر رد: اسامه الهرماوي
  [SQL] مشكلة تشغيل السيكوال اسامه الهرماوي 3 95 01-11-19, 01:25 AM
آخر رد: اسامه الهرماوي
  [VB.NET] مشكلة جلب قيمة من موقع معين farfour 0 68 31-10-19, 04:17 PM
آخر رد: farfour
  [VB.NET] مشكلة جلب قيمة من موقع معين الماجيك مسعد 4 152 30-10-19, 11:38 PM
آخر رد: الماجيك مسعد
  ما هو كود جعل السطر المكرر هو نفسه السطر المحدد في الداتا جريد فيو sofiane-phy 8 186 30-10-19, 09:31 PM
آخر رد: sofiane-phy

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم