[dametucorazon]

السلام عليكم ورحمه الله
حياكم الله عزوجل
بحثت  بالمنتدي قبل الكتابة ولم اجد المطلوب
لدى listbox اقوم بتحميل البيانات فيها من قاعده البيانات بناء علي شرط معين ووضعت تيكست بوكس
اريد ان يتم عمل فلتر للبيانات بناء علي المكتوب في التيكست بوكس
جربت الكود التالي ولا جدوي

كود :

Private Sub PopulateListBox()

       Dim LstConn As New SqlConnection("ConnectionString")
       Dim LstStr As String = "SELECT * FROM MyTable"
       Dim LstCmd As New SqlCommand(LstStr, LstConn)
       Dim LstAdapter As New SqlDataAdapter(LstCmd)
       Dim LstDataset As New DataSet
       Lstbs = New BindingSource
       LstAdapter.Fill(LstDataset)
       Lstbs.DataSource = LstDataset.Tables(0)

       Me.ListBox1.DataSource = Lstbs

       Me.ListBox1.ValueMember = "Key_Column"
       Me.ListBox1.DisplayMember = "Column"

   End Sub

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
       If Me.TextBox1.Text.Length > 0 Then
           Me.Lstbs.Filter = "YourColumn LIKE '" & TextBox1.Text & "%'"
       Else
           Me.Lstbs.RemoveFilter()
       End If
   End Sub