Foro de programacion

edwardruiz · #1 (**permalink**) 07 de abril,2009, 20:24

Hola buenas tardes, tengo un caso que no he podido hacer, por favor necesito un poco de ayuda...

Tengo un listview (al cual nombre ListData) cargado con informacion de una tabla (de access) el cual cargue de la siguiente manera:

Sub List_Data()
'Crea la conexion a la BDD de donde se va a extraer la informacion a mostrar en el List
rs.Open "select ID,TAREA,DESCRIPCION,DIASAPROX,FECHAING,STATUS from PLANTRABAJO", cn, adOpenStatic, adLockOptimistic
ListData.ListItems.Add
'Aqui hace el Recordset de la tabla en los registros
While Not rs.EOF
Set Item = ListData.ListItems.Add(, , rs.Fields("ID"))
Item.SubItems(1) = rs.Fields("TAREA")
Item.SubItems(2) = rs.Fields("DESCRIPCION")
Item.SubItems(3) = rs.Fields("DIASAPROX")
Item.SubItems(4) = rs.Fields("FECHAING")
Item.SubItems(5) = rs.Fields("STATUS")
rs.MoveNext
Wend

rs.Close

End Sub

Lo que necesito es que al darle doble click a algun registro / fila seleccionada (que puede ser fila 1 o fila 2, etc., etc.)
pues me traiga en variables todos los valores de sus deferentes campos (ID, TAREA, DESCRIPCION, DIASAPROX, FECHAING, STATUS)
para poder asignarlos despues a un formulario y asi poder editar su contenido.

Agradecido de antemano por la ayuda recibida!

Airon · #2 (**permalink**) 27 de mayo,2009, 18:06

con listview yo no encontre la forma de hacerlo, pero con mshflexgrid si puedes, le haces doble click y abre otro formulario para editar los valores de los campos

Codigo47 · #3 (**permalink**) 02 de junio,2009, 03:06

A ver si te ayuda:

Código:

Sub LeerListView()
Dim IndiceSeleccionado As Interger
Dim Valor1 As String

IndiceSeleccionado = ListData.SelectedItem.Index
Valor1 = ListData.ListItems(IndiceSeleccionado).SubItems(1)
'...y asi con todos los valores

End Sub

Saludos.