Saludos,
Mira chavez,
Si quieres hacerlo en un formulario, te explico.
1) Create un formulario
2) En el evento Load de la forma pones esto
* C:\MISISTEMA\DATOS\ esta es la ruta de tus datos en donde estan la tablas
* 0 ESTO ES UN CERO
IF !USED('TABLADUPLICADA')
USE C:\MISISTEMA\DATOS\TABLADUPLICADA.DBF SHARED IN 0 && CERO
ENDIF
SELECT 0 && CERO
SELECT TABLADUPLICADA
IF !USED('TABLAREFERENCIA')
USE C:\MISISTEMA\DATOS\TABLAREFERENCIA.DBF SHARED IN 0 && CERO
ENDIF
SELECT 0 && CERO
SELECT TABLAREFERENCIA
3) Agrega un boton en el formulario (comand1)
4) En el evento clik del boton pones esto
5) Create un text1 en el formulario
SELECT cedula;
FROM tabladuplicada;
WHERE cedula IN;
(SELECT cedula;
FROM tablareferencia) into table c:\temp\resultado.dbf
* tienes que crearte esta carpeta C:\temp
* into table c:\temp\resultado.dbf && este es el resultado, ya lo tienes en una tabla temporal, tambien lo puedes meter en un cursor, asi mira
SELECT cedula;
FROM tabladuplicada;
WHERE cedula IN;
(SELECT cedula;
FROM tablareferencia) into cursor resultado
* puedes ya desde aqui trabajar con esto, hacerle un Do While !eof(),, etc.
select resultado
go top
Do While !eof()
ThisForm.text1.value = resultado.cedula
skip
If eof()
exit
Endif
ThisForm.Refresh()
Enddo
* Todo esto ponlo en el Clik del boton Command1, y si quieres ver lo que esta haciendo ponle esto :
asi mira
SELECT cedula;
FROM tabladuplicada;
WHERE cedula IN;
(SELECT cedula;
FROM tablareferencia) into cursor resultado
select resultado
go top
SET STEP ON && Esto te permite ir paso por paso viendo lo que esta haciendo el *codigo, tienes que ir dandole F8, paso a paso, si queires que termine le das F5
Do While !eof()
ThisForm.text1.value = resultado.cedula
skip
If eof()
exit
Endif
ThisForm.Refresh()
Enddo
*Bueno creo que esta bien con la explicacion, si sigues teniendo dudas me dejas *saber,
Att.
Antonio R. Moquete Mejia
Santo Domingo Republica Dominicana (E M P D M)
