[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