* В следующем примере с помощью команды SET SKIP строится отношение
* один-ко-многим между двумя таблицами. В родительской таблице
* (customer) для каждой составленной накладной существует только одна
* запись. Дочерняя таблица (orders) содержит несколько записей для
* каждой записи из родительской таблицы.

* После того, как отношение создано, открывается окно редактирования, в
* котором отображаются записи как из родительской, так и из дочерней
* таблицы.

CLEAR

CLOSE DATABASES

OPEN DATABASE (HOME( ) + 'samples\data\testdata')

USE customer ORDER cust_id IN 0 && Parent table

USE orders ORDER cust_id IN 0 && Child table

SELECT customer && Back to parent work area

SET RELATION TO cust_id INTO orders && Establish relationship

SET SKIP TO orders && One-to-many relationship

WAIT WINDOW 'Scroll to see shipping dates for each customer' NOWAIT

EDIT FIELDS customer.cust_id :H='Customer Number', ;

customer.city :H='Customer City', orders.shipped_on