[haider.mohsin92]

Taha Okla
لك مني الف تحية اخي العزيز تم حل الاشكال بفضل اللله وبمساعدتك انا شاكر تعاونك
ولتعم الفائدة الكود النهائي لعملية البحث الذكي هو كما ذكر اخي وبتعديل مني على الكود اصبح يعمل بشكل مثالي

 

كود :

 Dim strALL As String = ""
        Dim str() As String = TextBox1.Text.Split(" ")
        For i = 0 To str.Length - 1
            If i = 0 Then strALL += "Name1 Like '*" + str(i) + "*' "

            strALL += " And Name1 Like '*" + str(i) + "*' "
        Next

        Dim result As DataRow() = DataGridView1.Select(strALL)
        ' إنشاء جدول جديد لعرض النتائج
        Dim resultTable As DataTable = DataGridView1.Clone()
        For Each row As DataRow In result
            resultTable.Rows.Add(row.ItemArray)
        Next
        ' تعيين المصدر الخاص بDataGridView ليكون النتيجة
        DataGridView1.DataSource = resultTable