Tak jsem to vyzkoušel filtrování přes BindingSource, ale zřejmě dělám něco špatně, protože mě to nefunguje. Mohl byste mě ještě trochu postrčit? Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Try
Dim filter As String = "Jmeno LIKE '" & TextBox1.Text & "%'"
BindingSource1.Filter = filter
Catch ex As Exception
Debug.Print(ex.Message)
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim db As New DBPins("Data Source=C:\Test.sdf")
Dim zamestnanci = From z In db.Zamestnanci Select z
BindingSource1.DataSource = zamestnanci
DataGridView1.DataSource = BindingSource1
End Sub
|