Recorrer mshflegrid y seleccionar fila

¿Me podrían ayudar con un problemita?
Mira.. Necesito hacer un modulo de inventario, donde tecleo el nombre de producto en un text y al dar enter
en un grid me despliegue la existencia de ese producto hasta ahí bien todo utilizo vb6 los datos los traigo de una consulta en un textbox, al darle enter me llena el mshflexgrid con los registros de ese código.. Entonces al leer el código de barras en otro textbox me recorra el mshflexgrid en busca del id ( código barras) si lo encuentra que me pinte la fila o seleccione, o algo que me indique que la encontró, también puede ser que las vaya borrando, en fin puede ser de varias maneras.. Y al final de mis lecturas si una fila no se pinto . O selecciono.. Eso quiere decir que me falto por inventariar..
Lo del checkbox en el gris lo descarto.. ¿o cómo vez? ¿Es más practico?
Espero su pronta ayuda con un código de ejemplo.. En serio que me gusta programar pero si apenas estoy enmpezando

1 Respuesta

Respuesta
1
Aquí te envío un código que te permite buscar y eliminar la fila si es que la encuentra.
Espero que te sirva.
Saludos
'Tienes que seleccionar el evento, procedimiento o función en que lo colocarás

Dim blnExito As Boolean
    blnExito = False

    'Recorremos el grid
    'Asumo que la primera fila es fija (tiene los encabezados)
    For i = 1 To Me.grdProductos.Rows - 1
        'Suponiendo que en la columna 0 está el código
'y tengo un campo txtCodigo en que está el código que busco
        'Consulto si el códigos el que busco
        '(i: Fila; 0: La columna que contiene el código)
        If Me.grdProductos.TextMatrix(i, 0) = Me.txtCodigo.Text Then
            'Si deseas eliminarlo
            ''Este if permite eliminar la última fila no fija
            'ya que el flex no permite removerla de la forma normal
            If Me.grdProductos.Rows > 1 Then
                Me.grdProductos.RemoveItem i
            Else
                Me.grdProductos.Rows = 1
            End If
            blnExito = True   'Indicar que fue encontrado
            Exit For               'Romper el ciclo
        End If
    Next
Este es mi código.. el id esta en la columna 1 y si efectivamente si funciona..
Ahora que se lo enseñe a mi jefe, me pide que haga otro form con lo mismo pero
ahora colorear la fila,, no eliminarla,, en fin es el jefe.. ¿me podrías ayudar ahora como
coloreo la fila?
Private Sub TXTLEER_KeyPress(KeyAscii As Integer)
Dim blnExito As Boolean
  If KeyAscii = 13 Then
    blnExito = False
    'Recorremos el grid
    'Asumo que la primera fila es fija (tiene los encabezados)
    For I = 1 To Me.GRIDINVENTA.Rows - 1
        'Suponiendo que en la columna 0 está el código
'y tengo un campo txtCodigo en que está el código que busco
        'Consulto si el códigos el que busco
        '(i: Fila; 0: La columna que contiene el código)
        If Me.GRIDINVENTA.TextMatrix(I, 1) = Me.TXTLEER.Text Then
            'Si deseas eliminarlo
            ''Este if permite eliminar la última fila no fija
            'ya que el flex no permite removerla de la forma normal
            If Me.GRIDINVENTA.Rows > 1 Then
                Me.GRIDINVENTA.RemoveItem I
            Else
                Me.GRIDINVENTA.Rows = 1
            End If
            blnExito = True   'Indicar que fue encontrado
            Exit For               'Romper el ciclo
        End If
    Next
  End If
End Sub
No sé si se puede colorear la fila entera, pero yo la coloreo de esta forma
Public Sub subCambioColorFila(flex As MSFlexGrid, intFila As Integer, colorFila, colorTexto)
    For i = 0 To flex.Cols - 1
        flex.CellBackColor = colorFila
        flex.CellForeColor = colorTexto
    Next
End Sub
Luego utilizamos la función en tu código
Private Sub TXTLEER_KeyPress(KeyAscii As Integer)
Dim blnExito As Boolean
  If KeyAscii = 13 Then
    blnExito = False
    'Recorremos el grid
    'Asumo que la primera fila es fija (tiene los encabezados)
    For I = 1 To Me.GRIDINVENTA.Rows - 1
        'Suponiendo que en la columna 0 está el código
'y tengo un campo txtCodigo en que está el código que busco
        'Consulto si el códigos el que busco
        '(i: Fila; 0: La columna que contiene el código)
        If Me.GRIDINVENTA.TextMatrix(I, 1) = Me.TXTLEER.Text Then
            'Si deseas colorear (fondo rojo, letras blacas)        
            subCambioColorFila Me.GRIDINVENTA, i, &HFF, &HFFFFFF&
            blnExito = True   'Indicar que fue encontrado
            Exit For               'Romper el ciclo
        End If
    Next
  End If
End Sub
Perdón, corrijo la función
Public Sub subCambioColorFila(flex As MSFlexGrid, intFila As Integer, colorFila, colorTexto)
    flex.Row = intFila
    For i = 0 To flex.Cols - 1
        flex.Col = i
        flex.CellBackColor = colorFila
        flex.CellForeColor = colorTexto
    Next
End Sub
Se me había olvidado posicionar la fila y la columna. Ahora tiene que funcionar.
Me marca error en la llamada de la función
subcambiocolorfila me. gridinventa, "I" (aca me marca el error en la variable I) &fff,&hfffff&
" El tipo de argumento byref no coincide"
que sera.. ¿me ayudas?
Puedes hacer dos cosas
Definir la variable i antes de llamar a la función
                Dim i as integer
O quitarle el tipo al parámetro intFila en la declaracion de la funcion
en lugar de
Public Sub subCambioColorFila(flex As MSFlexGrid, intFila As Integer, colorFila, colorTexto)
poner
Public Sub subCambioColorFila(flex As MSFlexGrid, intFila, colorFila, colorTexto)
Cualquiera de las dos va a funcionar.
Como recomendación para evitar ese error en el futuro, te sugiero utilizar, como primera línea de código en cada formulario o módulo
Option Explicit
Esto te obliga a declarar cada variable antes de ser utilizada.
Ya hice todo lo que me sugieres y ahora me marca error 13 no coinciden los tipos
en la llamada de la función
subCambioColorFila Me. GRIDINVENTA, I, &HFF, &HFFFFFF
option explicit
dim I as integer
Private Sub TXTLEER_KeyPress(KeyAscii As Integer)
Dim blnExito As Boolean
  If KeyAscii = 13 Then
    blnExito = False
    'Recorremos el grid
    'Asumo que la primera fila es fija (tiene los encabezados)
    For I = 1 To Me.GRIDINVENTA.Rows - 1
        'Suponiendo que en la columna 0 está el código
'y tengo un campo txtCodigo en que está el código que busco
        'Consulto si el códigos el que busco
        '(i: Fila; 0: La columna que contiene el código)
        If Me.GRIDINVENTA.TextMatrix(I, 1) = Me.TXTLEER.Text Then
            'Si deseas colorear (fondo rojo, letras blacas)
            subCambioColorFila Me.GRIDINVENTA, I, &HFF, &HFFFFFF
            blnExito = True   'Indicar que fue encontrado
            Exit For               'Romper el ciclo
        End If
    Next
 '  End If
  End If
End Sub
Public Sub subCambioColorFila(flex As MSFlexGrid, intFila As Integer, colorFila, colorTexto)
    flex.Row = intFila
    For I = 0 To flex.Cols - 1
        flex.Col = I
        flex.CellBackColor = colorFila
        flex.CellForeColor = colorTexto
    Next
End Sub
Ya quedo mi hermano... falta de observación la mía..
Era en el sub estaba como flex cuando me grid se llama gridinventa
ahí detalle..
Eres grande mi cuate!
Espero sigas apoyando en este foro !
Gracias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Exportar datos de un MSFlexGrid a Excel o Word

Tengo un proyecto con una superconsulta dinámica en un MSFlexGrid1 pero necesito imprimirlo o exportarlo a excel o word Gracias Diego Zapata [email protected]
1 respuesta

Buscar datos en rejilla

Tengo un control msflexgrid cargado de datos, y me gustaría saber como puedo hacer una búsqueda de una determinada cadena de caracteres o de datos numéricos en la rejilla.
2 respuestas

Sumar columnas MSFlexgrid en VB6.0

Recibe un cordial saludo por este medio, y nuevamente solicitando tu apoyo, te comento estoy tratando de sumar varias columnas de un msflexgrid pero a la vez deben de cumplir unas condiciones para que se sume su valor. Mi msflexgrid se llama...
1 respuesta

Vincular dos combobox y un textbox después del segundo combo box

Antemano aclara soy principiante. Tengo un problema tengo dos combobox (codigos de productos) vinculados el primero del segundo y por otro lado tengo otro combobox ( dodigos de producto) vinculado con otros textbox (descripción del producto), Las dos...
1 respuesta

Validaciones

Necesito validar algunos text en visual basic 6. Uno es para permitir solo letras, y no caracteres inválidos o números, acentos, paréntesis etc... Y el otro es lo contrario, es decir que acepte solo números, pero que no deje ingresar otro tipo de...
5 respuestas

Como elimino las columnas vacías en un msflexgrid

Estoy haciendo un programa que me importe una planilla excel a un msflexgrid sin embargo esta planilla me carga bien en el flexgrid pero tiene también hartas columnas vacías sin ningún contenido (es que el excel que se importa contiene columnas...
1 respuesta

Buscar dentro de matriz excel

Tengo una matriz de datos de m*m con las distancias de puntos( coordenadas). Necesito buscar aquellas coordenadas que la distancia sea menos a 200 ycopiar las coordenadas a otra hoJa.
1 respuesta

Una mano con visual

Amigo tengo unas dudillas a ver si me hechas una mano y me iluminas... Este es el caso un Dpto me entrega unos archivos en excel que contienen datos estadísticos en bruto... ¿Y yo a partir de ellos debo sacar el comportamiento que ha venido teniendo...
1 respuesta

Vincular combobox sin repetir dato inicial

Tengo en una misma hoja datos en la columna A y en la columna DE, los datos se corresponden entre si, o sea, A1 con D1, A2 con D2... Etc. Quisiera hacer un useform con dos combobox, en el combobox1 que se listen los datos de la columna A, y que al...
9 respuestas

Macro para comparar datos de 2 libros de excel

Tengo una base la cual se alimenta con varios Excel... Llamemos les id (el num puede ser variable) yo tengo que comparar una columna de la base con una del id"el num es variable" y el dato de la casilla "a1" del id colocarlo en la columna "ah" de la...
1 respuesta