Вычисляемые поля в Microsoft Visual FoxPro

В списке полей могут быть указаны вычисляемые поля, имеющие следующий синтаксис:

CalculatedFieldName = eExpression

Вычисляемые поля содержат доступные только для чтения данные, созданные eExpression. Операндами eExpression могут быть и пользовательские функции.

Пример. При просмотре таблицы Authors проверяются коды авторов (поле AuthorId). Если значение кода меньше 15, то вместо фамилии автора выводится сообщение "Неизвестный".

select Authors

set order to author

browse fields ;

AuthorId ;

:h = "Код", ;

Unknown = UnknownAuthor( ) ;

:h = "Автор", ;

InputDate ;

:h = "Дата ввода"

function UnknownAuthor( )

local lowerAuthorId

lowerAuthorId = 15

if AuthorId < lowerAuthorId  then

return 'Неизвестный'

else

return Author

endif

endFunc

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

Рис. 15.19. Пример с вычисляемым полем

Замечание. В данном примере вычисляемое поле можно записать иначе:

unknown = Iif(AuthorId < 15, 'Неизвестный', Author) :h = "Автор"