pablo - listas
Publicado por cami (3 intervenciones) el 14/08/2009 01:20:14
ok mira pablo esto es loq tengo
if empty (thisform.list5.listindex)=.t.
messagebox ("No seleccionó ningún dato", 64,"Faltan Datos")
else
with thisform
thisform.text14.value=thisform.list5.list(thisform.list5.listindex)
.list3.additem(thisform.list5.list(thisform.list5.listindex))
.list5.removeitem(thisform.list5.listindex)
.list5.listindex=0
*SELECT legajo,apellidoynombre,documento FROM alumnos where (apellidoynombre)==(thisform.text14.value) INTO CURSOR MyCursor
go top
endwith
endif
yo tengo una lista con los apellidos de alumnos, una vez q seleccion los q quiero los veo en otra lista, pero a la vez los voy guardando por si desea imprimir los q selecciono, por eso estoy creando este cursor.
ahora. hasta aca me esta colocando el ultimo q selecciono y ne me guarda todos los q voy eigiendo. q me esta faltando? GRACIAS por seguirme pablo
if empty (thisform.list5.listindex)=.t.
messagebox ("No seleccionó ningún dato", 64,"Faltan Datos")
else
with thisform
thisform.text14.value=thisform.list5.list(thisform.list5.listindex)
.list3.additem(thisform.list5.list(thisform.list5.listindex))
.list5.removeitem(thisform.list5.listindex)
.list5.listindex=0
*SELECT legajo,apellidoynombre,documento FROM alumnos where (apellidoynombre)==(thisform.text14.value) INTO CURSOR MyCursor
go top
endwith
endif
yo tengo una lista con los apellidos de alumnos, una vez q seleccion los q quiero los veo en otra lista, pero a la vez los voy guardando por si desea imprimir los q selecciono, por eso estoy creando este cursor.
ahora. hasta aca me esta colocando el ultimo q selecciono y ne me guarda todos los q voy eigiendo. q me esta faltando? GRACIAS por seguirme pablo
Valora esta pregunta
0