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 límite al for?

For algo TO algo

Lola
09 de Mayo del 2003

Uy, perdona , no había 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