
bindingSource.Filter
Publicado por roberto (24 intervenciones) el 20/04/2013 12:55:55
hola amigos del foro, necesito de ayuda con un bindingsource.Filter(XP, VB.net 2008), voy directo tengo un control bind que lo estoy cargando desde una lista de clase:
declarao el bind en mi form:
Private bind As Windows.Forms.BindingSource = New BindingSource
luego lleno mi bind con datos hasta aca todo bien
Dim lista As New List(Of DetallePedidosEnti)
Try
datos._id_deposito = Val(txtdeposito.Text)
lista = stock.pedido_stock(datos, cn)
bind.DataSource = lista
datagridview1.DataSource = bind.DataSource
luego realizo el filtro ,pero la misma no funciona,
Private Sub txtbusqueda_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbusqueda.TextChanged
Dim filtro As String = ""
Dim columna As String = ""
columna = datagridview1.Columns(datagridview1.CurrentCell.ColumnIndex).HeaderText
Try
filtro = "[" & columna & "] " & "like '%" & txtbusqueda.Text.Trim & "%'"
bind.Filter = filtro
Stmensaje.Text = "cant:" & bind.Count
bind.ResumeBinding()
Catch ex As Exception
MsgBox("ERROR al realizar filtro|" & ex.Message)
Finally
datagridview1.CurrentCell = datagridview1(col, fil)
End Try
End Sub
que estaria haciendo mal, otro filtro que tengo si funciona pero esta enlazado con un DataView.
espero me ayuden,
saludos cordiales.
declarao el bind en mi form:
Private bind As Windows.Forms.BindingSource = New BindingSource
luego lleno mi bind con datos hasta aca todo bien
Dim lista As New List(Of DetallePedidosEnti)
Try
datos._id_deposito = Val(txtdeposito.Text)
lista = stock.pedido_stock(datos, cn)
bind.DataSource = lista
datagridview1.DataSource = bind.DataSource
luego realizo el filtro ,pero la misma no funciona,
Private Sub txtbusqueda_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbusqueda.TextChanged
Dim filtro As String = ""
Dim columna As String = ""
columna = datagridview1.Columns(datagridview1.CurrentCell.ColumnIndex).HeaderText
Try
filtro = "[" & columna & "] " & "like '%" & txtbusqueda.Text.Trim & "%'"
bind.Filter = filtro
Stmensaje.Text = "cant:" & bind.Count
bind.ResumeBinding()
Catch ex As Exception
MsgBox("ERROR al realizar filtro|" & ex.Message)
Finally
datagridview1.CurrentCell = datagridview1(col, fil)
End Try
End Sub
que estaria haciendo mal, otro filtro que tengo si funciona pero esta enlazado con un DataView.
espero me ayuden,
saludos cordiales.
Valora esta pregunta


0