SELECT TableA
SET ORDER TO Pole2 IN TableB
SET RELATION TO Pole1 INTO TableB ADDITIVE

CREATE CURSOR tableA (pole1 N( 2 ), poleNN N( 2 ), string C( 20 ))
CREATE CURSOR tableB (pole2 N( 2 ), string C( 20 ))
FOR nCntA= 1  TO  10 
	INSERT INTO tableA VALUES(nCntA, nCntA* 2 , 'tableA '+PADL(nCntA, 2 ,'0'))
	FOR nCntB= 1  TO  3 
		INSERT INTO tableB VALUES(nCntA, 'tableB '+PADL(nCntB, 2 ,'0'))
	ENDFOR
ENDFOR

**	то што было сверьху
*SELECT  1 
*USE tableA
SELECT tableA && фставил
INDEX ON PoleNN TO c:\tableA && "индексирование по кокому-то полю с уникальным значением"
*SELECT  2 
*USE tableB
SELECT tableB  && фставил
INDEX ON Pole2 TO c:\tableB
SET ORDER to Pole2 IN tableB
SELECT  1 
SET RELATION TO Pole1 INTO tableB additive

SET SKIP TO tableB &&  вот тута  1 :М еще воткн:Ем
** и смотрим связочку
BROWSE FIELDS tableA.pole1, tableA.poleNN, tableA.String, ;
	tableB.pole2, tableB.String