23-02-19, 08:45 PM
مرحبا
يا شباب الكود لا يعمل و يجب عندما اكتب في حقل txtsearch يفرز البيانات بالداتا غريد عند كتابة اسم منتج او كوده
يا شباب الكود لا يعمل و يجب عندما اكتب في حقل 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