Hector Hugo
05 de Septiembre del 2003

Hola amigos, quisira que me ayudaran con un par de dudas, que tengo en foxpro6.
por una parte quisiera saber como mandar datos de un cuadro de texto situado en un formulario a otro cuadro de texto situado en otro formulario,que tambien esta abierto, pues lo intento y me dice que el formulario al que quiero mandar los datos no existe.

por otra parte necesito saber como mando resultados de consulta de varias tablas a un grid o grilla como le llaman comunmente aqui, pues necesito que las consultas con sus se presenten en un grid .
Gracias por su tiempo y se despide de ustedes su amigo "Hh" [email protected]
gracias de nuevo .. bye..

abraham
05 de Septiembre del 2003

no has intentado con parametros??

osvaldo
05 de Septiembre del 2003

Aqui te muestro un ejemplo de como puedes hacer una consulta y luefo la pasas a un grid.

&& METODO crear_select (lo creas como un nuevo metodo, en formulario - nuevo metodo.

PARAMETERS vfiltro

SELECT a.num_cont, a.emp_vende, a.emp_compra, a.fecha_ini, a.fecha_fin, a.tipo_cont, ;
b.num_semana, b.mw, b.ann ;
FROM contrato_base a, semanal b ;
WHERE &vfiltro ;
INTO CURSOR creserva

SELECT creserva
public_tabla = ALIAS()
THISFORM.carga_grid(public_tabla)

METODO: carga_grid: (lo creas como un nuevo metodo):

PARAMETERS vnom_tabla
LOCAL local_total_campos

SELECT "&vnom_tabla"
local_total_campos = AFIELDS(mat_tbl)
THISFORM.grdconsulta1.ColumnCount = local_total_campos

GO TOP
THISFORM.grdconsulta1.recordsourcetype = 1
THISFORM.grdconsulta1.recordsource = "&vnom_tabla"
THISFORM..grdconsulta1.refresh()
&& para cambiar las propiedades del grid. si no las necesitas puedes eleiminar esta parte.

FOR i = 1 TO local_total_campos
vmascara = "Column" + ALLTRIM(STR(i)) THISFORM.grdconsulta1.&vmascara..Header1.caption = ALLTRIM(UPPER(mat_tbl(i,1)))
THISFORM.grdconsulta1.&vmascara..width = 85 THISFORM.grdconsulta1.&vmascara..resizable = .F.
THISFORM.grdconsulta1.&vmascara..movable = .F.
THISFORM.grdconsulta1.&vmascara..header1.alignment = 2
ENDFOR

Osvaldo. REp. Panamá.