Ejemplo 12
Como en el ejemplo anterior, se desea extraer todos los datos correspondientes a un elemento de una determinada fila de datos colocándolos cada uno de ellos en un control de lista.
Procedimiento
Para ello haremos uso de los mismos controles que el ejemplo anterior con el único cambio en la ubicación de los elementos en el formulario y hemos aumentado dos cuadros de control: LstPrecio y LstCosto.
La imagen del formulario es el siguiente
El código del procedimiento CboLista es el siguiente:
Private Sub CboLista_Change()
LstReporte.AddItem CboLista.List(CboLista.ListIndex)
LstPrecio.AddItem Cells(CboLista.ListIndex + 2, 2)
LstCosto.AddItem Cells(CboLista.ListIndex + 2, 3)
End Sub
Reemplace este procedimiento por el anterior y tendrá la solución a este ejemplo.
© Ilmer Cóndor Espinoza. Todos los derechos reservados.
Prohibida la reproducción por cualquier medio.
Publicación web autorizada a aulaClic.
Cursos Informática Gratuitos Síguenos en: Facebook Sobre aulaClic Política de Cookies