listbox select multiple
Hola, tengo este procedimiento, pero solo toma el primer valor, alguien me puede decir que esta mal :( porfavor!!!
for each itmposicion in lstposicion.items
if itmposicion.selected then
posicion = LstPosicion.SelectedItem.value
cedula = TxtCedula.Text.Trim
puesto(posicion,cedula,stringconnection,objconn)
end if
next
End sub
Sub puesto (posicion as string, cedula as string,stringconnection as string, objconn as SqlConnection)
Dim strSql as string
strSql = "INSERT INTO Posicion (cod_posicion,cedula) VALUES ('" & posicion & "','" & cedula & "')"
Dim cmd1 as New SqlCommand(strSql, objconn)
cmd1.ExecuteNonQuery()
End sub
for each itmposicion in lstposicion.items
if itmposicion.selected then
posicion = LstPosicion.SelectedItem.value
cedula = TxtCedula.Text.Trim
puesto(posicion,cedula,stringconnection,objconn)
end if
next
End sub
Sub puesto (posicion as string, cedula as string,stringconnection as string, objconn as SqlConnection)
Dim strSql as string
strSql = "INSERT INTO Posicion (cod_posicion,cedula) VALUES ('" & posicion & "','" & cedula & "')"
Dim cmd1 as New SqlCommand(strSql, objconn)
cmd1.ExecuteNonQuery()
End sub
El error esta en que pones que posicion = lstposicion y no es asi, le tienes que poner posicion = itmposicion.value
for each itmposicion in lstposicion.items
if itmposicion.selected then
posicion = itmPosicion.value
cedula = TxtCedula.Text.Trim
puesto(posicion,cedula,stringconnection,objconn)
end if
next
for each itmposicion in lstposicion.items
if itmposicion.selected then
posicion = itmPosicion.value
cedula = TxtCedula.Text.Trim
puesto(posicion,cedula,stringconnection,objconn)
end if
next