listbox select multiple

Auxilio
09 de Mayo del 2003
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

Lola
09 de Mayo del 2003
No le tienes puesto un lmite al for?

For algo TO algo

Lola
09 de Mayo del 2003
Uy, perdona , no haba visto el EACH;-))

Ni idea

Nena
09 de Mayo del 2003
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