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

السلام عليكم ورحمة الله وبركاته
الشكر الجزيل للاخ ابو انس على الاجابة جعلها الله في ميزان حسناته
اخوتي من غير الممكن للمستخدم فتح الكود وتعديل جملة الاستعلام او الكود وكتابة الاسماء

كود :

BindingSource2.Filter = "  Name  = '" & a & "'or Name  ='" & b & "'"

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

كود :

  ' ننشء مصفوفة من الاسماء الموحودة في مربع نص البحث
       Dim KK() As String = TextBox1.Text.Trim.Split(" ")
       '   نقوم  بانشاء جملة النص لتتلاءم مع الفلتر
       Dim AA As String = ""
       AA &= """"
       For i As Integer = 0 To KK.Length - 1
           AA &= " name ='" & KK(i) & "'"
           If i < KK.Length - 1 Then
               AA &= " or "
           Else
               AA &= ""
           End If
       Next

       AA &= """"

       BindingSource2.Filter = AA