[abu7shihab]

السلام عليكم اخواني الاعزاء 
ارجو التكرم بتعديل كود البحث في الجريد فيو المباشر ، حيث يقوم البحث بشكل جيد ولكن المشكلة الصف الاول دائما يظهر عند عملية البحث

On Error Resume Next

        BRANDataGridView.ClearSelection()

        For i As Integer = 0 To BRANDataGridView.Rows.Count - 0

            BRANDataGridView.Rows(i).Visible = True

            If BRANDataGridView.Rows(i).Cells(0).Value.ToString.Contains(TextBox3.Text.Trim) Then

                BRANDataGridView.Rows(i).Visible = True

         

            End If

        Next

علما بأني استخدم الفيجول بيسك 2010  تتصل عن طريق المعالج

[Anas Mahmoud]

استخدم الكود هكذا :

كود :

       For Each r As DataGridViewRow In BRANDataGridView.Rows
           If r.Cells(0).Value.ToString.Contains(TextBox3.Text.Trim) Then
               r.Visible = True
           Else
               r.Visible = False
           End If
       Next

اذا كنت لاتحتاج لرقم الصف لماذا تدخل نفسك في متاهة ال index وال count ؟

اذا لم تعمل بعد ارني صورة الداتا جريد فيو بالعنصر الاول ربما كان به عنصر شرطه متحقق دائما

[abu7shihab]

شكرا لك استاذي العزيز
سأوافيك بالرد

---

[attachment=25648 كتب :Anas Mahmoud pid='166682' dateline='1599799922']استخدم الكود هكذا :

كود :

       For Each r As DataGridViewRow In BRANDataGridView.Rows
           If r.Cells(0).Value.ToString.Contains(TextBox3.Text.Trim) Then
               r.Visible = True
           Else
               r.Visible = False
           End If
       Next

اذا كنت لاتحتاج لرقم الصف لماذا تدخل نفسك في متاهة ال index وال count ؟

اذا لم تعمل بعد ارني صورة الداتا جريد فيو بالعنصر الاول ربما كان به عنصر شرطه متحقق دائما

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

[abu7shihab]

وجدت الحل للموضوع البحث : وسأطرحه هنا لكي يستفيد الجميع


Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
Dim records = From BILL In Database1DataSet.BILL Where BILL.TEL Like TextBox8.Text & "*" Select BILL
BILLBindingSource.DataSource = records.AsDataView
End Sub

دمتم بود اخواني الاعزاء

[T 1]

شكرا لوضع الحل
+1