Hola a todos, soy nuevo en el foro espero que me puedan dar una mano, les cuento mi situacion:
Tengo un Listbox (lstcorrelativas) que lleno desde una tabla (materias) con nombres de materias y en la propiedad Itemdata de dicho list agrego el Id (primare key) correspondiente a cada nombre de materias que tengo en mi base de datos.
Esto lo realizo de la siguiente forma:
While Not rs.EOF = True
lstcorrelativas.AddItem rs!nombre_materia
lstcorrelativas.ItemData(lstcorrelativas.NewIndex) = rs!id_materia
rs.MoveNext
Wend
rs.Close
.
El list (lstCorrelativas) tiene activado los CheckBoxes, lo que necesito es que el usuario pueda seleccionar por ejemplo 4 materias y guardar en otra tabla (correlativas) de mi base de datos, los "Id" de esas materias (los que tengo agregado en el Itemdata, no el nombre de la materia)
Les muestro mi codigo y mas abajo explico el error que tengo, a ver si alguien me puede dar una mano.
' Cuando el usuario seleccione las materias correspondientes y haga click en un boton
For w = 0 To lstcorrelativas.ListCount - 1
If lstcorrelativas.Selected(w) = True Then
rs.AddNew
rs!mat_correlativa = lstcorrelativas.ItemData(lstcorrelativas.ListIndex) 'Aca creeria que esta mi problema
rs!id_materia = LstMaterias.ItemData(LstMaterias.ListIndex) ' este dato actualizando desde otro list (Me funciona bien)
rs.Update
End If
Next
Bueno el problema que tengo es que me graba los datos, pero me repite siempre el mismo itemdata
especifico mejor:
Si el usuario selecciono 3 materias del list, por ej: Matematica (id:25), Ingles (id:33), Contabilidad (id:14)
en mat_correlativas siempre me guarda el primer dato, en el ejemplo seria 25.
Alguien me podria dar una mano y orientarme como deberia hacerlo?.
Pd: Estoy haciendo un plan de estudios de un colegio, carga de carreras (abogacia, medicina), carga de materias, (quimica, ingles) y la carga de sus correlativas, para los no Argentinos las correlativas son las materias que tenes que tener aprobadas obligatoriamente para podes anotarte en otras materias: ejemplo Ingles I es correlatvia de ingles II.
Espero que me puedan dar una mano, desde ya muchas gracias para todos
