FoxPro/Visual FoxPro - Como usar CURVAL(FIELDS(.......))

Estimados:
Necesito recuperar el valor de un campo, que viene de una tabla a traves de una funcion, me explico voy a resumir

PROGRAMA-1
TaBlaDif = "FamSubDif" -----> Tablas .dbf
TaBlaPDA = "FamPDA"
EnivaTablas(TablaDif, TablaPDA)

Programa
FUNCTION EnivaTablas(TablaDif, TablaPDA)
*-----------------------------------------------------------------------------------------
numcampos = FCOUNT('&TaBlaPDA')
FOR i = 1 TO numcampos
campodi = Fields(i,"&TablaDif") -----> Nombre del campo, ejemplo: Nomnre
campoPD = CURVAL(FIELDS(i, "TablaPDA"), "TablaPDA") ----> Rescatar Valor: Maria
replace &campodi WITH &campoPD
ENDFOR

Una tabla que tiene muchos campos, es para evitar repetir el replace, por eso esta el for
Me extrae bien en nombre del campo:

Nombre = campodi = Fields(i,"&TablaDif") Pero;

el Valor de la otra tabla: TablaPDA, me arroja error :
campoPD = CURVAL(FIELDS(i, "TablaPDA"), "TablaPDA")
Lo coloque & &TablaPDA &TablaPDA
Probe con todo, ayudenme please, gracias, atte.

¿Has probado con Evaluate() o con macrosustitución?

Hola, probá así:

FOR i = 1 TO numcampos

campodi = Tabladif + "." + Fields(i, TablaDif )

campoPD = TablaPDA + "." + Fields(i, TablaPDA )

replace &campodi WITH &campoPD

ENDFOR

Y si los campos de ambas tablas tiene el mismo nombre:

FOR i = 1 TO numcampos

CampoName = Tabladif + "." + Fields(i, TablaDif )

CampoOrigen = Tabladif + "." + CampoName

CampoDestino = TablaPDA + "." + CampoName

replace &CampoDestino WITH &CampoOrigen

ENDFOR

Saludos