Buscar un texto en una columna y seleccionar los coincidentes en un DGV
<Pregunta>
Que tal .. igual no sé si este comentario sea para es hilo, pero tengo un problema .. tengo un datagridview pero quiero agregar un textbox fuera del datagrid, para cuando empiece a escribir vaya buscando en el datagrid y que se vaya seleccionando, sé que para ese procedimiento se juega un poco con el datatable pero aún estoy perdido ... alguién tiene una sugerencia ..
Mil gracias
<Respuesta>
... Se me ocurre algo similar a esto.
Private Articulo As New DataTable("Articulos")
Private MIDGV As New DataGridView
Private MITXT As New TextBox
Private Sub Form1_Load() Handles MyBase.Load
'
' Simular tabla Articulos
'
Articulo.Columns.Add("Codigo")
Articulo.Columns.Add("Descripcion")
Articulo.Columns.Add("Precio")
Articulo.Rows.Add("001", "Resistencia 100ohms", "0,15")
Articulo.Rows.Add("002", "Transistor 2n2234", "1,00")
Articulo.Rows.Add("003", "Microprocesador Z80", "5,40")
Articulo.Rows.Add("004", "UART 16C450", "3,45")
Articulo.Rows.Add("005", "Resistencia 200ohms", "0,12")
Articulo.Rows.Add("006", "Transistor 2n2222", "1,22")
'
' marco
Dim marcoDGV = New FlowLayoutPanel
marcoDGV.BorderStyle = BorderStyle.Fixed3D
marcoDGV.Width = Me.Width
marcoDGV.Height = Me.Height
' Añadir el marco con el DataGridView y textBox
marcoDGV.Controls.AddRange(New Control() {MIDGV, MITXT})
Me.Controls.Add(marcoDGV)
' Seleccionar el textbox
MITXT.Select()
' al cambiar el texto
AddHandler MITXT.TextChanged, AddressOf VerSeleccion
End Sub
' LINQ (Con VB9 'Visual Studio 2008')
' Mostrar la seleccion de los registros
' que contienen la seleccion del texto
' introducido en el textBox
Private Sub VerSeleccion()
MIDGV.DataSource = (From S In Articulo Where S.Item("Descripcion").ToString.Contains(MITXT.Text) _
Select Codigo = S.Item("Codigo"), _
Descripcion = S.Item("Descripcion") _
).ToList
End Sub
Saludos,
Pep Lluis,