RE:llevar campo de grid a grid de otro formulario
Cuando lo llames haz esto
en tu formaulario uno
tines que tenes un campo que sera el que vaz a buscar
En tu boton busqueda
DO FORM busqueda WITH "factura","factura.nfactura","factura.nombre" TO cCodigo
SELECT factura
IF !EMPTY(cCodigo) then
SEEK(cCodigo)
if !found() then
mensaje("codigo no encontrado")
else
thisform.fac_anu = factura.anulada
ThisForm.habilita_controles(.f.)
thisform.refresh
endif
ENDIF
en tu segunda pantalla
lParameter cTabla, cCodigo, cNombre
LOCAL sConsulta
thisform.codigo = cCodigo
thisform.nombre = cNombre
thisform.tabla = cTabla
** Se obtienen los valores de la tabla a mostrar
sConsulta ="SELECT "+cCodigo+" As codigo, "+cNombre+" FROM " +cTabla+ " INTO CURSOR busqueda"
** se asignan los valores al Grid
ThisForm.grdBusqueda.RecordSource = sConsulta
ThisForm.grdBusqueda.column1.width = 150
ThisForm.grdBusqueda.column2.width = 3380
thisform.refresh
tienes que tener un grid..
Cuando cierres segunda pantalla
IF USED("busqueda")
SELECT busqueda
USE in busqueda
ENDIF
RETURN thisform.valor