Как получить значение выпадающих элементов из базы данных, подключенной в Progress 4gl, Open Edge?

Question

Я создал одно простое окно с одним выпадающим списком, и проект уже связан со спортивной базой данных по умолчанию.Теперь я хочу показать все таблицы в базе данных в этом выпадающем списке.

Answer 1

Чтобы иметь возможность динамически заполнять содержимое поля со списком, вам необходимо динамически создать его:

DEFINE VARIABLE ComboBoxWidgetHandle AS HANDLE NO-UNDO.
CREATE COMBO-BOX ComboBoxWidgetHandle.

После этого вы можете использовать дескриптор виджета для добавления элементов в поле со списком, используя таблицу метасхемы базы данных под названием '_file':

FOR EACH _file NO-LOCK WHERE _Hidden = NO:
    ComboBoxWidgetHandle:ADD-FIRST (_file._FILE-NAME).
END.

Если вы также хотите узнать другие свойства таблицы метасхемы _file, просто попробуйте

FOR EACH _file NO-LOCK WHERE _Hidden = NO:
    DISPLAY _file.
END.

и вы получите обзор этой таблицы метасхемы.