Hola Leandro
Sigo con dudas.
Tal como lo indique cree una base de datos tanto en acces como SQL en para probar . Arrastré en forma de datagrid a un formulario para visualizarlo y al lado texboxs relacionados a cada columna(Código, Cliente, Rif; Dirección y
COndiciones de Pago) de la base de datos. Coloque un boton para agregar nuevos registros a esa base de datos segun el contenido de cada textbox correspondiente, tambien puse un boto para, eliminar, modificar un registro existente y moverme dentro
del grid (Moveprevious, next,etc....)Adapte el progama del link que me indicaste antes a mi programa y al depurarlo cuando coloco en tiempo de ejecucionr un nombre en el textbox de busqueda y al pusar el boton buscar (para que muestre en el grid
la celdas del registroa buscar) me saca el error "No se pudo encontrar la columna Codigo"..., y marca la parte del codigo donde se aplica el filtro. De seguro hay algo que estoy haciendo mal. Esta es la funcion sub cuando se pulsa el boton buscar
Private
Sub Buscar_Click(ByVal
sender As System.Object,
ByVal e
As System.EventArgs)
Handles Buscar.Click
Dim busqueda
As
String = TextBox1.Text
If
String.IsNullOrEmpty(busqueda)
Then
MsgBox(
"Debe ingresar un valor a buscar", 48,
"Cuadro de Dialogo")
Return
End
If
For
Each cell
As DataGridViewCell
In ClientesDataGridView.SelectedCells
cell.Selected =
False
next
Dim rows
As List(Of
DataGridViewRow) = (From item
In ClientesDataGridView.Rows.Cast(Of
DataGridViewRow)() _
Let Codigo = Convert.ToString(If(item.Cells("Codigo").Value,
String.Empty)) _
Let RazonSocial = Convert.ToString(If(item.Cells("Razon
Social").Value, String.Empty)) _
Let Rif = Convert.ToString(If(item.Cells("Rif").Value,
String.Empty)) _
Let DireccionFiscal = Convert.ToString(If(item.Cells("Direccion").Value,
String.Empty)) _
Let CondicionesdePago = Convert.ToString(If(item.Cells("Condiciones
de Pago").Value, String.Empty)) _
Where Codigo.Contains(busqueda)
OrElse RazonSocial.Contains(busqueda)
OrElse Rif.Contains(busqueda) _
OrElse DireccionFiscal.Contains(busqueda)
OrElse CondicionesdePago.Contains(busqueda) _
Select item).ToList()
For
Each row
As DataGridViewRow
In rows
Dim cells
As List(Of
DataGridViewCell) = (From item
In row.Cells.Cast(Of
DataGridViewCell)() _
Let cell = Convert.ToString(item.Value) _
Where cell.Contains(busqueda) _
Select item).ToList()
For
Each item
As DataGridViewCell
In cells
item.Selected =
True
Next
Next
end sub
Espero tu oportuno comentario
saludos
