[aftfm]

قمت بتجربة هذا الكود لكنه في حالة الزيادة والنقصان لا يقوم بالحذف

وفي حدث TextChanged

PHP كود :

SearchByName.Text = "" 
        Using MyDataAdapter As New OleDbDataAdapter("Select Name_Emp From tblEmployes Where Num_Emp like '" & SearchByNum.Text & "'", Con) 
            Call MyDataAdapter.Fill(DataSet1, "Name_EmpTable") 
            For Each MyRow As DataRow In DataSet1.Tables("Name_EmpTable").Rows 
                Dim a As String = MyRow.Item("Name_Emp") 

                SearchByName.Text = a 

            Next 
       End Using