Anónimo
Copiar linea de grid en una nueva
Hola experto
Fíjate que necesito poder copiar todo el contenido que el usuario ingresa en una linea del grid en la siguiente
Te agradezco si puedes ayudarme con este problema.
Gracias
Mishel
Fíjate que necesito poder copiar todo el contenido que el usuario ingresa en una linea del grid en la siguiente
Te agradezco si puedes ayudarme con este problema.
Gracias
Mishel
Respuesta de Hector Cevallos
1
Hola, si lo que quiero es crear un botón que cuando el usuario lo presione me copie la linea de información del grid en una nueva.
Gracias
Mishel
Gracias
Mishel
Ahora bueno para hacer eso primero necesito saber si tu grid esta enlazado a una tabla o como haces para llenar los datos del grid
Hola,
el grid lo tengo enlazado a una base de datos de fox, el usuario ingresa los datos y estos se guardan en forma automática.
cree un boton para eliminar las filas con el siguiente codigo
SELECT detadataquimio
DELETE
GO RECNO()
thisform.Grid1.Columns(1).SetFocus()
Que es básicamente lo mismo que quiero hacer pero ahora es copiar la fila
gracias.
Mishel
el grid lo tengo enlazado a una base de datos de fox, el usuario ingresa los datos y estos se guardan en forma automática.
cree un boton para eliminar las filas con el siguiente codigo
SELECT detadataquimio
DELETE
GO RECNO()
thisform.Grid1.Columns(1).SetFocus()
Que es básicamente lo mismo que quiero hacer pero ahora es copiar la fila
gracias.
Mishel
Más o menos podrías hacer lo siguiente :
thisform.grid1.recordsource = ""
thisform.grid1.refresh
select detadataquimio
Scatter memvar
Append blank
Gather memvar
thisform.grid1.recordsource = "detadataquimio"
Thisform. Grid1. Refresh
Espero esto te sirva sino te funciona me avisas para hacerlo de otra manera, suerte
thisform.grid1.recordsource = ""
thisform.grid1.refresh
select detadataquimio
Scatter memvar
Append blank
Gather memvar
thisform.grid1.recordsource = "detadataquimio"
Thisform. Grid1. Refresh
Espero esto te sirva sino te funciona me avisas para hacerlo de otra manera, suerte
Hola, perdón pero fíjate que no me funciono no copia la linea.
Saludos
Mishel
Saludos
Mishel
Bueno si esa opción no funcionó entonces la otra solución es la siguiente :
thisform.grid1.recordsource=""
thisform.grid1.refresh
select detadataquimio
ncodigoaux=codigo
cnombreaux=nombre
*asi vas pasando todos los campos de tu tabla a variables auxiliares
append blank
replace codigo with ncodigoaux ;
nombre with cnombreaux
*reemplazas todos los demas campos
thisform.grid1.recordsource="detadataquimio"
Thisform. Grid1. Refresh
thisform.grid1.recordsource=""
thisform.grid1.refresh
select detadataquimio
ncodigoaux=codigo
cnombreaux=nombre
*asi vas pasando todos los campos de tu tabla a variables auxiliares
append blank
replace codigo with ncodigoaux ;
nombre with cnombreaux
*reemplazas todos los demas campos
thisform.grid1.recordsource="detadataquimio"
Thisform. Grid1. Refresh