set dele on use b in 1 use a in 2 sele 2 scan sele 1 loca for a.xjfh=b.xjfh if found() sele 2 dele endif sele 2 endscan disp