Anónimo
Copiar registros múltiples de un list a una tabla
Hola, espero puedas ayudarme, tengo un formulario en el cual seleccione varios registros de un list, pero no tengo idea de como copiar los registros seleccionados a una tabla, espero puedas ayudarme.
1 respuesta
Respuesta de ingesoft
1
Tal vez una solución seria que al seleccionar del list se vayan cargando a un grid en el mismo form si no quieres que se vea se puede hacer invisible. En el evento clic podes poner:
Se le tabla
Append blank
repla campo1 with this.value
Pero solo se cargara solo el código si es lo que quieres. Si deseas más ayuda por favor escríbeme con más detalles.
Se le tabla
Append blank
repla campo1 with this.value
Pero solo se cargara solo el código si es lo que quieres. Si deseas más ayuda por favor escríbeme con más detalles.
En realidad debería explicarme un poco más, exactamente lo que tu dices es lo que quiero que se muestren los registros, en el grid, pero lo que no enteiendo, si una vez que se ha seleccionado un grupo de registros del list, por ejemplo diez registros, el código para poderlos copiar, ¿es el que tu dices pero para copiar los diez hay que hacerlo mediante un for para los diez o eso me copia todos los seleccionados?
La verdad hasta que consultaste no había utilizado el list con selección múltiple pero ya lo aprendí gracias, para sacra los datos seleccionados si se hace con un for de 1 al numero de datos que tenga el list eso se hace con :
vari=''
FOR i=1 TO thisform.list1.ListCount
IF ThisForm.list1.Selected(i) && Is item selected?
vari=vari+ALLTRIM(thisform.list1.List(i))+CHR(10)
ENDIF
ENDFOR
MESSAGEBOX(VARI)
en este ejemplo estoy guardando en una variable todos los campos seccionados para mostrarlos con messagebox, pero en vez de mostralos podria cargarlos a un grid con
thisform.grid1.recordsourse='tablaGrid'
FOR i=1 TO thisform.list1.ListCount
IF ThisForm.list1.Selected(i) && Is item selected?
Se le tablaGrid
Append Blank
repla Codigo with val(thisform.list1.list(i)
ENDIF
Endfor
Thisform. Grid1. Refresh
Bueno para cargar más datos tendrías que hacer un método de cargar pasándole el código que lo busque en la tabla original y que cargue el la tabla del grid más datos como descripción, precio etc no se que estas seleccionado me imagino varios productos
Bueno como siempre estoy para servirte y si solucionaste tu problem finaliza tu pregunta
vari=''
FOR i=1 TO thisform.list1.ListCount
IF ThisForm.list1.Selected(i) && Is item selected?
vari=vari+ALLTRIM(thisform.list1.List(i))+CHR(10)
ENDIF
ENDFOR
MESSAGEBOX(VARI)
en este ejemplo estoy guardando en una variable todos los campos seccionados para mostrarlos con messagebox, pero en vez de mostralos podria cargarlos a un grid con
thisform.grid1.recordsourse='tablaGrid'
FOR i=1 TO thisform.list1.ListCount
IF ThisForm.list1.Selected(i) && Is item selected?
Se le tablaGrid
Append Blank
repla Codigo with val(thisform.list1.list(i)
ENDIF
Endfor
Thisform. Grid1. Refresh
Bueno para cargar más datos tendrías que hacer un método de cargar pasándole el código que lo busque en la tabla original y que cargue el la tabla del grid más datos como descripción, precio etc no se que estas seleccionado me imagino varios productos
Bueno como siempre estoy para servirte y si solucionaste tu problem finaliza tu pregunta