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

السلام عليكم اخي سعيد
لتنفيذ فكرتك :
ضع مربع نص للبحث بحيث تكتب الاسماء بجانب بعضها مع فراغ واحد بين الاسماء
ضع الكود التالي في بوتون (استخدم داتا تابل جديدة للبحث غير التي تملا البيانات )
هذا الكود سيتحقق من مربع نص البحث  ان كان فارغا سيتم املاء الداتا غرايد بنفس الداتا تابل التي جلبنا فيها البيانات كافة
 اما ان كان فيها اسماء  فسيتم انشاء مصفوفة من الاسماء الموجودة في مربع نص البحث مع  داتا تابل باسم جديد
ثم نعمل جملة فور تلف على عناصر المصفوفة وكل مرة تبحث عن عنصر ويضاف الى الداتاغرايد

كود :

' داتا تابل جديدة
       Dim dtt As New DataTable()
       If TextBox1.Text.Trim = "" Then
           dgv_table.DataSource = dt
       Else
           ' انشاء مصفوفة من الاسماء الموجودة في مربع البحث بدلالة المسافة بين الاسماء
           Dim Serh() As String = TextBox1.Text.Trim.Split(" ")
           For i As Integer = 0 To Serh.Length - 1
               da = New OleDbDataAdapter("select * from Personal Where CV_Name = '" & Serh(i) & "'", Con)
               da.Fill(dtt)
           Next
           dgv_table.DataSource = dtt
       End If

 غير اسم الجدول واسم الحقل الذي تريد البحث به