Обновление отношения один-ко-многим на основе выбранного значения из списка

Когда пользователь выбирает запись с помощью списка, вам может потребоваться о новить отношение один-ко-многим, для того чтобы представленная в форме инфо мация соответствовала записи родительской таблицы. Вы можете сделать это для лока ьных таблиц и представлений.

Локальные таблицы

Если значение свойства RowSourceType списка равно 2 Таблица или 6 Поля, а в RowSource указана локальная таблица с отношением один-ко-многим, установленным в среде анных формы, вызовите метод THISFORM.Refresh. Сторона "многие" в этом отношении автоматически покажет только те записи, которые отвечают связи.

Представления

При создании представления в конструкторе видов задайте параметр в конструкции SELECT, указывающий на свойство списка Value, как показано ниже:

SELECT * FROM orders WHERE order.cust_id = ?THISFORM.lstCustID.Value

Как сконструировать список "один-ко-многим", основанный на локальной таблице и и удаленном представлении

1. Включите представления в среду данных.

2. Установите значение свойства AutoOpenTables формы в ложь (.F.). Поскольку представление параметризовано, значения, тре уемые для представления, недоступны в момент загрузки формы.

3. Убедитесь, что в окне Properties свойства ControlSource всех элементов управления, кроме списка, пусты. Поля представления в момент о работки события Init для элементов управления еще недоступны.

4. Установите в свойстве RowSource списка первичный ключ главной таблицы. Это мож о сделать с помощью отдельной конструкции SQL или другим методом.

5. В коде обработчика события InteractiveChange для списка вызовите функцию REQUERY с псевдонимом подчиненного представления. Например:

= REQUERY("orders")

6. В коде обработчика события Init для формы загрузите среду данных и установите свойства ControlSource, RowSource или RecordSource всех элементов управления формы. В следующем примере загружается среда данных формы и устанавливаются свойства текстового поля и сетки:

THIS.DataEnvironment.OpenTables

THIS.txtCompany.ControlSource = "company"

THIS.grdOrders.RecordSourceType = 1 && Alias

THIS.grdOrders.RecordSource = "orders"