hi ,
all tables are free,
i try as under,
but can i do that with out index,

Set Relationship to TEL into SSS
USE tty
INDEX ON tel TAG tel
USE sss
INDEX ON tel TAG tel

select TTY
Scan
m.tel = tel
m.typ = typ
If indexSEEK( m.Tel, .T., "SSS", "TEL")
Select SSS
Replace Typ with m.Typ in SSS
endif
endscan

thanks
>>hi,
>>thank you but i don't have any relation between the 2 tables
>>* assuming reln. between the tables based on Key TEL, Tag TEL
>>how ??
>
>But surely you've set up persistant relationships between tables in your database designer? Or are all your tables FREE?
>If they're not already related, as I said, use the Set Relationship command:
>

>SET RELATION TO [eExpression1 INTO nWorkArea1 | cTableAlias1
>   [, eExpression2 INTO nWorkArea2 | cTableAlias2 ...]
>   [IN nWorkArea | cTableAlias] [ADDITIVE]]
>

>
>i.e. Set Relationship to TEL into SSS
>
>You must have both tables indexed on the TEL field.