hi,
i try as under ,but he get one record and repated for all tables,and delete
every number at myfield new_eno,and replace another new_eno,this field what i need to compare with mytable orginal.new_eno.

CLOSE all
DECLARE newdncf[4] && If You have more then 4 declare it
newdncf[1] = "chief"
newdncf[2] = "customerc"
newdncf[3] = "manager"
newdncf[4] = "northrs"
*......
FOR ndnc = 1 TO ALEN(newdncf,1)
    f_name = newdncf[ndnc]
    select 0
    use (f_name)
NEXT
select 0
use orginal
SCAN
    SCATTER MEMVAR
    m.tablenew_eno=orginal.new_eno
    FOR ndnc = 1 TO ALEN(newdncf,1)
        f_name = newdncf[ndnc]
        select (f_name)
        SCAN FOR   m.tablenew_eno=orginal.new_eno
             GATHER MEMVAR
        ENDSCAN
    NEXT
    SELECT orginal
    
ENDSCAN
CLOSE ALL

thanks.
m.qasem
>Just put their actual names in array newdncf
>DECLARE newdncf[4] && If You have more then 4 declare it
>newdncf[1] = "aaaaa"
>newdncf[2] = "bbbbb"
>newdncf[3] = "ccccc"
>newdncf[4] = "ddddd"
>....
>
>>hi,
>>thank you so much,
>>if tables name is deferent names as aaa.dbf,bbbb.dbf,ccc.dbf ...etc
>>can be work,
>>thanks.
>>m.qasem
>>
>>>

>>>DECLARE newdncf[4] && If You have more then 4 declare it
>>>newdncf[1] = "NewDnc1"
>>>newdncf[2] = "NewDnc2"
>>>newdncf[3] = "NewDnc3"
>>>newdncf[4] = "NewDnc4"
>>>......
>>>FOR ndnc = 1 TO ALEN(newdncf,1)
>>>    f_name = newdncf[ndnc]
>>>    select 0
>>>    use (f_name)
>>>NEXT
>>>select 0
>>>use newdnc
>>>SCAN
>>>    SCATTER MEMVAR
>>>    m.tablechar1=NewDnc.Char1
>>>    FOR ndnc = 1 TO ALEN(newdncf,1)
>>>        f_name = newdncf[ndnc]
>>>        select (f_name)
>>>        SCAN FOR Char1 == m.tablechar1
>>>             GATHER MEMVAR
>>>        ENDSCAN
>>>    NEXT
>>>    SELECT NewDnc
>>>ENDSCAN
>>>CLOSE ALL
>>>