منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] اين الغلط في كود استخدام فلتر البحث - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اين الغلط في كود استخدام فلتر البحث (/showthread.php?tid=28737)

اين الغلط في كود استخدام فلتر البحث - georgos - 23-02-19

مرحبا
يا شباب الكود لا يعمل و يجب عندما اكتب في حقل txtsearch يفرز البيانات بالداتا غريد عند كتابة اسم منتج او كوده
كود :
Imports System.Data.OleDb
Public Class pro_edit


   Dim Dtproducts As New DataTable
   Sub FillDGV()
       Dtproducts.Rows.Clear()

       adapter = New OleDbDataAdapter("Select * from TBL_Products", con)
       adapter.Fill(Dtproducts)
       Me.dgvpro.DataSource = Dtproducts
   End Sub

   Private Sub btnext_Click(sender As Object, e As EventArgs) Handles btnext.Click
       Close()

   End Sub
   Private Sub pro_edit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       FillDGV()

   End Sub

   Private Sub txtsrch_TextChanged(sender As Object, e As EventArgs) Handles txtsearch.TextChanged
       Try
           Dim DtResult As DataTable = Dtproducts.Copy

           Dim dv As DataView = DtResult.DefaultView


           dv.RowFilter = " Pro_code + [Pro_Name] '% " & txtsearch.Text & "%'"
           Me.dgvpro.DataSource = dv



       Catch ex As Exception
           Exit Sub

       End Try
   End Sub

   


RE: اين الغلط في كود استخدام فلتر البحث - ابراهيم ايبو - 24-02-19

السلام عليكم اخي الكريم
استبدل كود البحث الذي لديك بهذا الكود

كود :
  Private Sub txtsrch_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles txtsearch.TextChanged
       Try
           adapter = New OleDbDataAdapter("Select Pro_code, Pro_Name from TBL_Products Where Pro_Name like '% " & txtsearch.Text & "%' or Pro_code like '% " & txtsearch.Text & "%'", con)
           adapter.Fill(Dtproducts)
           Me.dgvpro.DataSource = Dtproducts

       Catch ex As Exception
         
       End Try
   End Sub


RE: اين الغلط في كود استخدام فلتر البحث - georgos - 24-02-19

اخي هذا الكود لم يعمل و كرر بيانات الجدول في الداتا غريد

RE: اين الغلط في كود استخدام فلتر البحث - ابراهيم ايبو - 24-02-19

ضع هذه الجملة بعد عبارة try حتى لاتتكرر البيانات
كود :
Dtproducts.clear()


RE: اين الغلط في كود استخدام فلتر البحث - georgos - 24-02-19

اخي صار يفرز لكن جدول فارغ لا يظهر شيء سوى سجل فارغ

RE: اين الغلط في كود استخدام فلتر البحث - ابراهيم ايبو - 24-02-19

اخي هذا مثال بنفس المسميات للحقول والجدول والبحث يكون باسم المنتج او كوده

RE: اين الغلط في كود استخدام فلتر البحث - georgos - 24-02-19

تم - يعطيك الف عافية

RE: اين الغلط في كود استخدام فلتر البحث - ابراهيم ايبو - 24-02-19

الحمد لله والشكر لله
الله يعافيك اخي الكريم