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

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  تتصل عن طريق المعالج
الرد
تم الشكر بواسطة: حريف برمجة , حريف برمجة
#2
استخدم الكود هكذا :


كود :
       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 , WaeLx
#3
شكرا لك استاذي العزيز
سأوافيك بالرد

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

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

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


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة: حريف برمجة
#4
وجدت الحل للموضوع البحث : وسأطرحه هنا لكي يستفيد الجميع


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

دمتم بود اخواني الاعزاء
الرد
تم الشكر بواسطة: Anas Mahmoud , حريف برمجة , asemshahen5 , WaeLx , WaeLx
#5
شكرا لوضع الحل
+1
الرد
تم الشكر بواسطة: حريف برمجة , asemshahen5 , WaeLx



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


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