+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تعديل في عملية البحث (/showthread.php?tid=36362)
تعديل في عملية البحث - abu7shihab - 11-09-20
السلام عليكم اخواني الاعزاء
ارجو التكرم بتعديل كود البحث في الجريد فيو المباشر ، حيث يقوم البحث بشكل جيد ولكن المشكلة الصف الاول دائما يظهر عند عملية البحث
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 تتصل عن طريق المعالج
RE: تعديل في عملية البحث - Anas Mahmoud - 11-09-20
استخدم الكود هكذا :
كود :
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 ؟
اذا لم تعمل بعد ارني صورة الداتا جريد فيو بالعنصر الاول ربما كان به عنصر شرطه متحقق دائما
RE: تعديل في عملية البحث - abu7shihab - 11-09-20
شكرا لك استاذي العزيز
سأوافيك بالرد
[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 ؟
اذا لم تعمل بعد ارني صورة الداتا جريد فيو بالعنصر الاول ربما كان به عنصر شرطه متحقق دائما
شكرا لك استاذي العزيز مره اخرى على مرورك
نفس المشكلة مازل الصف الاول يظهر عند الفلتره كما هو موضح بالصورة المرفقة
والعنصر الاول لا يفرق فقد غيرته ونفس المشكلة
RE: تعديل في عملية البحث - abu7shihab - 11-09-20
وجدت الحل للموضوع البحث : وسأطرحه هنا لكي يستفيد الجميع
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
دمتم بود اخواني الاعزاء
RE: تعديل في عملية البحث - T 1 - 11-09-20
شكرا لوضع الحل
+1