如何在字符界面中实现下拉列表？

Question

我有两个 table，第一个是候选人，第二个是员工。在我添加新员工之前，我必须在 candidates table 中查找，然后获取 candidateID 并使用此键添加新员工。我不知道如何在这个候选表中查找。现在我有了这个，但这是一个糟糕的解决方案。

set cfname label "First #"
        clname label "Last #" with overlay title "Candidate Name"  1 columns row 5 column  28.
    find last candidates  where firstname = cfname and lastname = clname no-lock no-error .

我想滚动它们，当我按下 "Enter" 时，我使用此键并添加员工 table。

create employee no-error.
    Assign
        employee.candidateid = id
        employee.employeeid = next-value(employee)
        hiredate = today.

我不知道如何实现这个。

Answer 1

正如所指出的：这回答了问题的原始标题"How [to] implement Drop Down Lists in character interface?"

一些可以帮助您入门的东西（字符界面并不是我最擅长的领域，所以可能有更简单的方法）。

它基本上归结为变量定义以及一些框架定义上的 VIEW-AS 选项。

DEFINE VARIABLE cTest AS CHARACTER   NO-UNDO VIEW-AS COMBO-BOX LABEL "Select value".

DEFINE FRAME fr1
    cTest WITH SIDE-LABELS 1 COLUMN.

cTest:LIST-ITEMS IN FRAME fr1 = "One,Two,Three,Four".

UPDATE cTest WITH FRAME fr1.

如何在字符界面中实现下拉列表？

How implement Drop Down Lists in character interface?

progress-4gl

openedge