[fghj4]

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   Me.Table1BindingSource.Filter = ""
   If TextBox1.Text.Trim = "" Then Exit Sub
   Select Case ComboBox1.SelectedIndex
       Case 0 'الرقم_التسلسلي
           Me.Table1BindingSource.Filter = "الرقم_التسلسلي=" & TextBox1.Text
       Case 1 'الإسم و اللقب
           Me.Table1BindingSource.Filter = "الإسم_و_اللقب='" & TextBox1.Text & "'"
       Case 2 'رقم الهاتف
           Me.Table1BindingSource.Filter = "رقم_الهاتف='" & TextBox1.Text & "'"
       Case 3 'المدينة
           Me.Table1BindingSource.Filter = "المدينة='" & TextBox1.Text & "'"
   End Select
End Sub