bUSQUEDA GRID - VB-MUNDO

javier · #1 (**permalink**) 22-06-2005, 08:58:21

Hola con este código hago una búsqueda en el grid , pero quiero que me seleccione la fila una vez encontrada, me cambié de color , pero solo me marca la ultima fila ¿En que falla? Gracias

Código:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
'Si pulso la F1
  If KeyCode = 112 Then
  'Si esta activado
  If Option1.Value = True Then
  'Recorre toda la fila del grid y localiza el registro
   For c = 1 To ForArticulo.MSFlexGrid1.Rows - 1
  If ForArticulo.MSFlexGrid1.TextMatrix(c, 1) = Form2.Text1.Text Then
  'PARA SELECIONAR TODA LAFILA Del CONTROL
With ForArticulo.MSFlexGrid1
    .Col = 0
     .RowSel = .Row
    .ColSel = .Cols - 1
End With
  
  End If
  Next c
        End If
        'Pulso la tecla escape
    ElseIf KeyCode = 27 Then
'CERRAR EL FORMULARIO
Unload Form2
    End If
End Sub

csic20 · #2 (**permalink**) 22-06-2005, 19:14:10

aqui te envio un ejemplo de como tratar colores etc en un mshflexgrid o en flexgrid, revisa esto y creo q eso resolvera tu problema

javier · #3 (**permalink**) 23-06-2005, 06:46:32

Muchas gracias compañero las propiedades de este control ya las conozco, el tema es que no doy con la tecla para que me seleccione toda la fila buscada, de la forma indicaba en el Ej. , me selecciona la ultima fila he probado también poner de otras forma pero no doy con la tecla seguro que será muy sencillo, pero basta que se te atragante una cosa para no ver nada .Venga muchas gracias

angelescj · #4 (**permalink**) 23-06-2005, 11:46:40

No dices si está enlazado o lo cargas a mano, porque si seleccionas el registro que quieres en el recordset al que está enlazado automáticamente te lo selecciona en el grid. En vez de buscarlo en le grid, búscalo en el control al que está enlazado, si es que está enlazado a algo, claro.

:smt004

javier · #5 (**permalink**) 23-06-2005, 11:57:42

Perdón si no me he explicado bien el control MSFlexGrid no esta enlazado a nada yo hago una consulta a la bd cargo el control con la consulta y después con el código este :

Código:

For c = 1 To ForArticulo.MSFlexGrid1.Rows - 1 
  If ForArticulo.MSFlexGrid1.TextMatrix(c, 1) = Form2.Text1.Text

Hago una búsqueda, y mi pretensión es que esa búsqueda que yo hago se me marque toda la fila completa .vengan gracias

angelescj · #6 (**permalink**) 23-06-2005, 12:21:39

Vale, pues entonces prueba esta código:

Código:

Dim i As Integer
For i = 0 To Me.MSHFlexGrid1.Rows - 1
    'Busco la coincidencia
    If Me.MSHFlexGrid1.TextMatrix(i, 1) = Me.Text1.Text Then
        'Una vez encontrada establezco el inicio de las filas seleccionadas
        'a la que contiene en código, y el fin también, esto es para que
        'intente seleccionar un rango de ellas.
        Me.MSHFlexGrid1.Row = i
        Me.MSHFlexGrid1.RowSel = i
        'Establezco el inicio de las columnas seleccionadas a la primera de ellas
        'y el fin a la última
        Me.MSHFlexGrid1.Col = 0
        Me.MSHFlexGrid1.ColSel = Me.MSHFlexGrid1.Cols - 1
        'Termino la búsqueda
        Exit For
    End If
Next

Espero que te sirva
:smt004

javier · #7 (**permalink**) 23-06-2005, 12:46:46

Angelescj. Muchas gracias mira que he estado dando vuelta por el alrededor y no daba con la tecla. VENGA GRACIAS :smt004