CREATE CURSOR cParent (ID i, TParent c( 20 ))
CREATE CURSOR cChild (ID i, TChild c( 20 ))

FOR i =  1  TO  2 
	INSERT INTO cParent (id, TParent) VALUES (i, 'cParent ' + TRANSFORM(i))
	FOR j =  1  TO  2 
		INSERT INTO cChild (id, tChild)  VALUES (i, 'cChild ' + TRANSFORM(i))
	ENDFOR 
ENDFOR 

SELECT cParent
INDEX ON id TAG id

SELECT cChild 
INDEX ON id TAG id

SELECT a.ID as ParentID, MyRecnoInA(a.ID) as RecnoParent, b.ID ChildID, MyRecnoInB(b.ID) as RecnoChild ;
FROM cParent a INNER JOIN cChild b ON a.ID = b.ID

FUNCTION MyRecnoInA (tcID)
=SEEK(tcID,'cParent','ID')
RETURN RECNO('cParent')

FUNCTION MyRecnoInB (tcID)
=SEEK(tcID,'cChild','ID')
RETURN RECNO('cChild')