Busqueda segun se escribe

[guillebomtrasmiti]

Hola amigos, tengo esto

If e.KeyChar = Convert.ToChar(Keys.Enter) Then
BuscarFactura()
If DataGridView1.Rows(0).Cells(0).Value Is Nothing Then
MsgBox("No hay resultados", MsgBoxStyle.Information, "Aviso")
cargagridFichasProd()
Else
End If
End If

me funciona bien, pero quería que no se tuviera que pulsar enter, sino que al ir escribiendo se fuese filtrando en el grid lo que contenga esas letras..=?

[freegirl]

en qué evento tienes eso? Ponlo en el evento de textchanged

[guillebomtrasmiti]

Private Sub BuscarFactura()
Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

Try
com.CommandType = CommandType.Text
com.CommandText = "Select Plu,NomProducto,NomFamilia,NUnidades,Merma,Formato Compra,PrecioCoste,StockA,Stock1,Stock2,Stock3,Sto ck4,Stock5,Stock6,Stock7,Stock8,Stock9,Stock10,Min 1,Min2,Min3,Min4,Min5,Min6,Min7,Min8,Min9,Min10,Mi nA From Productos Where NomProducto LIKE '%" & TextBuscar.Text & "%'"

adapt.SelectCommand = com
adapt.Fill(setda, "Productos")


'aquí cargo el datasource y el datamenber del datagrid
DataGridView1.DataSource = setda
DataGridView1.DataMember = "Productos"
DataGridView1.Refresh()
Catch
MessageBox.Show("Compruebe sus datos", "Aviso GesDreamtPos")
End Try
End Sub

está así

[Aquaventus]

Hola guillebomtrasmiti has lo que te indica freegirl lo que tienes colocalo en el evento TEXTCHANGED de tu textbox donde escribes :

Código vb:

BuscarFactura()
If DataGridView1.Rows(0).Cells(0).Value Is Nothing Then
MsgBox("No hay resultados", MsgBoxStyle.Information, "Aviso")
cargagridFichasProd()
Else
End If
 

solo le tenias que kitar el primer if que hace la funcionalidad de apretar el [ENTER]. Saludos!.

[guillebomtrasmiti]

Gracias....amigo super aquaaaa