Filtrar DataGridView

[ci2000]

Hola. Logré mostrar los datos de una tabla en un DataGridView.
No me funciona el filtro. En este ejemplo quiero mostrar todos los que contengan el texto 'alm' y no me muestra nada siendo que hay datos que cumplen con la condición.
¿Qué hago mal?

Código:

Public Class frmBuscar

    Private Sub frmTablas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Tabla As New DataTable
        Dim Adaptador As New MySqlDataAdapter("SELECT * FROM calles ORDER BY calle", Conexion)

        Adaptador.Fill(Tabla)
        dgvTablas.DataSource = Tabla

        dgvTablas.Columns.Item(0).Width = 50
        dgvTablas.Columns.Item(1).Width = 50
        dgvTablas.Columns.Item(2).Width = 290
        'seleccioanr fila completa al hacer clic en un registro
        dgvTablas.SelectionMode = DataGridViewSelectionMode.FullRowSelect

        Tabla = Nothing
        Adaptador = Nothing
    End Sub

    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
        Me.Close()
    End Sub

    Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click
        Dim BindingSource As Windows.Forms.BindingSource = New BindingSource
        Dim filtro As String = String.Empty

        filtro = "calle LIKE '%alm%'"
        BindingSource.Filter = filtro
        ' enlzar el datagridview al BindingSource  
        dgvTablas.DataSource = BindingSource.DataSource
    End Sub
End Class

Gracias y saludos

[Aquaventus]

Hola ci2000 para hacer filtros a nivel de datagridview puedes usar DataView :

Código vb:

Public Class frmBuscar
 
    Dim vista As New DataView
 
    Private Sub frmTablas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Tabla As New DataTable
        Dim Adaptador As New MySqlDataAdapter("SELECT * FROM calles ORDER BY calle", Conexion)
 
        Adaptador.Fill(Tabla)
        vista.Table = Tabla
        dgvTablas.DataSource = Tabla
 
        dgvTablas.Columns.Item(0).Width = 50
        dgvTablas.Columns.Item(1).Width = 50
        dgvTablas.Columns.Item(2).Width = 290
        'seleccioanr fila completa al hacer clic en un registro
        dgvTablas.SelectionMode = DataGridViewSelectionMode.FullRowSelect
 
        Tabla = Nothing
        Adaptador = Nothing
    End Sub
 
    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
        Me.Close()
    End Sub
 
    Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click
        Dim filtro As String = String.Empty
        filtro = "calle LIKE '%alm%'"
        vista.RowFilter = filtro
        vista.Sort = "calle"
        dgvTablas.DataSource = vista
        dgvTablas.Update()
    End Sub
End Class
 

Saludos!.

[ci2000]

Gracias.
Anduvo ok.