FoxPro/Visual FoxPro - formulario

 
Vista:

formulario

Publicado por Candy (20 intervenciones) el 08/01/2004 21:59:07
Hola
me super urge saber como agragar una consulta de otra tabala a un formulario
mira tengo un formulario que al darle clik en buscar me activa el cuadro de texto text1 y este me busca los datos gnerales de una persona en una tabla pero me debe buscar mas datos de otra tabala con esa misma clave de la caja de texto como le debo agregar la consulta.
espero y me puedan ayudar. asi lo manejo

thisform.pageframe1.page1.text1.enabled=.t.
if thisform.pageframe1.page1.text1.value<>space(8)
IF SEEK(thisform.pageframe1.page1.text1.value,"tblpersonal",1)
thisform.pageframe1.page1.text1.value=tblgan.Clave
thisform.pageframe1.page1.text2.value=tblgan.nombre
thisform.pageframe1.page1.combo2.value=tblgan.edad
pero me debe buscar el la tabla estudios
thisform.pageframe1.page2.combo7.value=tblestudios.prepa
thisform.pageframe1.page2.combo1.value=tblestudios.maestria
thisform.pageframe1.page2.combo2.value=tblestudios.dosctora
como le debo hacer para que tome los datos de otra tabla con la misma clave del inicio
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:formulario

Publicado por Foxperto (894 intervenciones) el 10/01/2004 00:05:28
Hola Candy:

Lo que tienes que hacer es activar la otra tabla para hacer la busqueda alla:

Yo lo haria de esta manera:

Thisform.Pageframe1.page1.text1.enabled=.t.
lcClave = thisform.pageframe1.page1.text1.value
If !Empty(lcClave)
IF SEEK(lcClave,"tblpersonal",1)
thisform.pageframe1.page1.text1.value=tblgan.Clave
thisform.pageframe1.page1.text2.value=tblgan.nombre
thisform.pageframe1.page1.combo2.value=tblgan.edad
*
If Seek(lcClave, "tblestudios", 1)
thisform.pageframe1.page2.combo7.value=tblestudios.prepa
thisform.pageframe1.page2.combo1.value=tblestudios.maestria
thisform.pageframe1.page2.combo2.value=tblestudios.dosctora
EndIf
EndIf

Otra cosa que puedes hacer, es utilizar tablas relacionadas.

Prueba y me cuentas

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar