select 0 use neg1 order tel select 0 use neg set relation to tel into neg1 replace neg.team with neg1.team for not eof('neg1')>hi all,
> > select 1 > use neg1 >do whil .t. .and. !eof() >scatter memvar > m.tel=tel > m.team=team > select 2 > use neg > replace team WITH m.team FOR tel=m.tel > brow > select 1 > skip > if eof() > exit > endif >enddo >CLOSE ALL >>thanks