BUSQUEDA SENCITIVA EN UN DATAGRID
Publicado por Richard Pérez (5 intervenciones) el 27/10/2005 22:18:25
Saludos, Hice el Siguiente código y fuciona bien para buscar en un datagrid.
If AscW(e.KeyChar) = 13 Then
Dim i As Integer
Private myTable As DataView
myTable = CType(DataGrid1.DataSource, DataView)
For i = 0 To myTable.Count - 1
If DataGrid1.Item(i, CboBuscar.SelectedIndex) = TxtBuscar.Text Then
DataGrid1.UnSelect(DataGrid1.CurrentRowIndex)
DataGrid1.CurrentRowIndex = (i)
DataGrid1.Select(DataGrid1.CurrentRowIndex)
Exit For
End If
Next
End If
Pero ahora quiero Hacer una busqueda que sea sensitiva, es decir al presionar una tecla el Select debe ubicarse en el primer item que tenga el primer caracter de la cadena de string igual a la tecla presionada, luego la segunda tecla con el segundo caracter de la cadena de string del Item.
Disculpen si no me explique bien, de antemano muchas gracias, y que Dios los bendiga.
If AscW(e.KeyChar) = 13 Then
Dim i As Integer
Private myTable As DataView
myTable = CType(DataGrid1.DataSource, DataView)
For i = 0 To myTable.Count - 1
If DataGrid1.Item(i, CboBuscar.SelectedIndex) = TxtBuscar.Text Then
DataGrid1.UnSelect(DataGrid1.CurrentRowIndex)
DataGrid1.CurrentRowIndex = (i)
DataGrid1.Select(DataGrid1.CurrentRowIndex)
Exit For
End If
Next
End If
Pero ahora quiero Hacer una busqueda que sea sensitiva, es decir al presionar una tecla el Select debe ubicarse en el primer item que tenga el primer caracter de la cadena de string igual a la tecla presionada, luego la segunda tecla con el segundo caracter de la cadena de string del Item.
Disculpen si no me explique bien, de antemano muchas gracias, y que Dios los bendiga.
Valora esta pregunta
0