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,
>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.