hi,
thank you so much, it works
regards
m.qasem

>Hi
>
>You need to set up the keys BEFORE Set Relation:
>
>USE sss
>INDEX ON tel TAG tel
>USE tty
>INDEX ON tel TAG tel
>Set Relationship to TEL into SSS
>
>But, if you insist, you CAN of course use locate, instead of INDEXSEEK()
>
>* in your scan loop
>Select SSS
>Locate for tel = m.Tel
>If FOUND()
> ...
>EndIf
>
>
>>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.