[georgos]

مرحبا
يا شباب الكود لا يعمل و يجب عندما اكتب في حقل 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

   

[ابراهيم ايبو]

السلام عليكم اخي الكريم

استبدل كود البحث الذي لديك بهذا الكود

كود :

  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

[georgos]

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

[ابراهيم ايبو]

ضع هذه الجملة بعد عبارة try حتى لاتتكرر البيانات

كود :

Dtproducts.clear()

[georgos]

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

[ابراهيم ايبو]

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

[georgos]

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

[ابراهيم ايبو]

الحمد لله والشكر لله

الله يعافيك اخي الكريم