منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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  تتصل عن طريق المعالج
استخدم الكود هكذا :


كود :
       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 ؟

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

[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 ؟

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

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


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

دمتم بود اخواني الاعزاء
شكرا لوضع الحل
+1