Solucion de WebListbox

[Jaime VO]

"Editado" - Perdon por el inconveniente, en toda la publicacion no especifico que la solucion es para una aplicacion para WEB, le agradezco a Jose L. Blazquez, que me apoyo con una solucion para Aplicacion de Escritorio.

Compañeros de Grupo, vuelvo a ustedes de nuevo, agradeciendo de antemano a sus respuestas y a Naype, que siempre resuelve mis dudas, la cual necesito implementar una solucion y como ya dure demasiado tratando de darle solucion, es mejor preguntar y despues seguir buscando si no hay comentarios, tengo que realizar alguna solucion para esta herramienta:

El cual lo que necesito, es llenar un listbox y que el usuario seleccione algunos item del list y despues leer ese listado seleccionado y realizar un movimiento en base a lo que selecciono, espero haberme explicado, agradezco su ayuda, saludos..

[Naype]

que tal Jaime,

Te comento de entrada que se puede hacer lo que indicas, pero tengo una duda. en la imagen se ve que hay casillas que tiene la palomita pero se ven dashabilitadas (en gris), no es nada mas habilitar y desahabilitar??

atento a tu respuesta

[Naype]

ok Jaime, solo quieres saber la forma de identificar los que estan habilitados para guardar el registro.

pues bien te agrego el siguiente código:

   for x as Integer=0 to listapro.ListCount-1   //cuento los registros en la lista

       if listapro.CellCheck(x, 1)=True then      //verifico cuales casillas estan habilitadas

            dim rsalta as DatabaseRecord        //guardo la info que necesito, en este caso en una base de datos

            rsalta=new DatabaseRecord

            rsalta.IntegerColumn("id")=idtemp

            rsalta.IntegerColumn("idpac")=listapac.Cell(listapac.ListIndex,0).Val

            rsalta.IntegerColumn("idpro")=listapro.Cell(x,0).Val

            rsalta.IntegerColumn("cantidad")=listapro.Cell(x,3).Val

            rsalta.IntegerColumn("descuento")=listapro.Cell(x,5).Val

            rsalta.DoubleColumn("importe")=listapro.Cell(x,6).CDbl

            rsalta.Column("fecha")=fecha1

            rsalta.Column("idusu")=App.PASWORD

            App.base.InsertRecord("surtido", rsalta)

       end if

  next x

este es parte de un codigo que guarda los datos en un base de datos donde el objetivo es surtir los productos que tengan la casilla con la palomita.

espero te sirva, este codigo es de una app de escritorio, pero como tu lo sabes es totalmente compatible para una appweb.

quedo atento...

[Jaime VO]

Agradezco como siempre a Naype por su ayuda, el cual siempre cuento con el y para proporcionar el mismo codigo de el implementado en un WebListBox, saludos..

for x as Integer=0 to ListaCuotas.RowCount-1   //cuento los registros en la lista

MsgBox   Str(ListaCuotas.Cell(x,0))

MsgBox   Str(ListaCuotas.Cell(x,1))

next x