07-07-18, 06:07 PM
السلام عليكم ورحمه الله
حياكم الله عزوجل
بحثت بالمنتدي قبل الكتابة ولم اجد المطلوب
لدى listbox اقوم بتحميل البيانات فيها من قاعده البيانات بناء علي شرط معين ووضعت تيكست بوكس
اريد ان يتم عمل فلتر للبيانات بناء علي المكتوب في التيكست بوكس
جربت الكود التالي ولا جدوي
حياكم الله عزوجل
بحثت بالمنتدي قبل الكتابة ولم اجد المطلوب
لدى 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