Hi Muhammed,
Your codes don't clearyl tell me.
I write these lines for you. It might be possible some mistakes because of invalid understood of mine. But my advice go on this codes. I'm sure you'll undestand and correct if there is some mistakes.

CLOSE all

USE alltrim(thisform.text5.value) in 0 Alias file1
USE alltrim(thisform.text6.value) in 0 Alias file2

lcField = alltrim(thisform.text1.value)

Scan
   xvalue=Evaluate(lcField)
  Select file1
    Locate for &lcfield=xvalue
    xvalue2=bill_value
    If Found()
       Select file2
       Replace newvalue with xvalue2
    EndIf 
       Select file2 
EndScan 

>hi,
>
>any idea,
>i try as under, but still not work
>

>CLOSE all
>
>USE alltrim(thisform.text5.value) in 0
>USE alltrim(thisform.text6.value) in 0
>xfileF=alltrim(thisform.text5.value)
>  ? (xfileF)&&----->TABLE NAME IS BILL
> lcField = alltrim(thisform.text1.value)
>
>xval=alltrim(thisform.text5.value)+"."+lcfield
>
>xfile=alltrim(thisform.text6.value)
>
>xval2=alltrim(thisform.text5.value)+"."+lcfield
>
>replace IN (xfile) ;
>   FOR EVAL(lcField)==LookUp(&xval, EVAL(lcField), &xval2) AND NOT EOF(alltrim(thisform.text5.value));
> newvalue with xfileF.BILL_VALUE&& not works
> *newvalue with BILL.BILL_VALUE&& IT WORKS
>

>i try many times as
>

> newvalue with  xfileF+"."+BILL_VALUE &&&variable BIIL is not found
> newvalue with BILL_VALUE&& BILL_VALUE "variable" is not found
> newvalue with xfileF.BILL_VALUE&&"xfileFe" is not an object
> newvalue with evaluate(xfileF+"." + BILL_VALUE)&&BILL_VALUE "variable" is not found
>
>

>thanks.