Поддержка Set Skip в Microsoft Visual FoxPro

Если создана связь 1:М, то команда BROWSE позволяет выводить записи как родительской, так и дочерних таблиц.

Пример. Устанавливается связь 1:М между родительской и дочерней таблицами Books и BooksContent, содержащими соответственно названия книг и названия входящих в них произведений. Команда BROWSE обеспечивает отображение названия книги, ее содержания, а также вида произведения. Последнее поле является вычисляемым.

close databases

close tables all

open database 'd:\HomeLibrary\HomeLibrary'

use Books order BookId in 0

use BooksContent order BookId in 0

use WorkType order TypeId in 0

select books

set relation to BookId into BooksContent

set skip to BooksContent

browse fields ;

Books.Book :h = 'Книга', ;

BooksContent.name :h = 'Содержание', ;

wType = Lookup(WorkType.WorkType, BooksContent.TypeId, ;

WorkType.TypeId, 'TypeId') ;

:h = 'Вид произведения' save

Возможный результат приведен на рис. 15.20.

Рис. 15.20. Отображение связи 1:М командой BROWSE

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

Перемещение на отображаемую родительскую запись можно выполнить, нажав Ctrl+¯ или Ctrl+­.

Имени поля дочерней таблицы должен предшествовать префикс в виде псевдонима таблицы и точки. Для поля выбранной родительской таблицы префикс может быть опущен.