filtrar fila MSHFlexGrid
Publicado por bret (5 intervenciones) el 21/04/2013 05:02:07
al ingresar el id del cliente del cliente en un textbox logro filtar y
el resultado aparece en un MSHFlexGrid
lo que deseo que al filtar aparezca toda la fila seleccionada de un color especifico
[
Private Sub TxtBusqueda_Change()
Dim Conexion As New Recordset
Dim busqueda As String
busqueda = "Select idcliente ,NombreCompañía,País,Teléfono, Dirección from Clientes Where IdCliente like '" + Trim(TxtBusqueda) & "%' Order By IdCliente"
Conexion.Open busqueda, Conexion, adOpenStatic, adLockOptimistic
Set Me.MSHFlexGrid1.DataSource = conexion
el resultado aparece en un MSHFlexGrid
lo que deseo que al filtar aparezca toda la fila seleccionada de un color especifico
[
Private Sub TxtBusqueda_Change()
Dim Conexion As New Recordset
Dim busqueda As String
busqueda = "Select idcliente ,NombreCompañía,País,Teléfono, Dirección from Clientes Where IdCliente like '" + Trim(TxtBusqueda) & "%' Order By IdCliente"
Conexion.Open busqueda, Conexion, adOpenStatic, adLockOptimistic
Set Me.MSHFlexGrid1.DataSource = conexion
Valora esta pregunta
0