Вы можете использовать контрол ListBox для отображения дочерних записей из установленной ранее связи типа "один-ко-многгим" между таблицам; при этом при перемещении указателя записи в родительской таблице будет изменяться содержание списка записей в дочерней таблице.
Для отображения дочерних записей в Списке
-
Создайте на форме объект ListBox.
-
Определите значение свойства ColumnCount для указания нескольких столбцов в создаваемом списке.
Например, если Вам нужно обобразить столбцы
Order_id
,Order_net
, иShipped_on
в создаваемом списке, то тогда ColumnCount = 3. -
Определите значение свойства ColumnWidths для задания размеров соответствующих столбцов.
-
Определите значение свойства RowSourceType как = 3 (SQL Statement).
-
Определите значение свойства RowSource для опреденления оператора SELECT. Например, в следующем операторе вычисляется необходимый курсор для задания содержания создаваемого списка при динамически изменяемом поле Cust_ID, связывающем две таблицы.:
Копировать Код
SELECT order_id, order_net, shipped_on from orders ;
WHERE order.cust_id = customer.cust_id ;
INTO CURSOR temp -
В коде События Init данной формы и в коде перемещения указателя записи в родительской таблицы нужно указатьб следующий оператор обновления содержания списка:
Копировать Код
THISFORM.lstChild.Requery