如何在PROGRESS 4GL中获取下拉框选中值为变量

你的代码存在两个核心问题：

1. 获取时机错误：你在填充下拉框后立即尝试取值，但此时控件尚未启用，用户还没有机会选择内容，WAIT-FOR语句在赋值代码之后，导致取值逻辑执行时下拉框还未进入交互状态。
2. SCREEN-VALUE用法错误：Progress ABL中SCREEN-VALUE是函数而非属性，正确调用格式为SCREEN-VALUE(控件名 IN FRAME 框架名)，而非SCREEN-VALUE:StateBox。

可行解决方案 #

以下是两种常用的正确取值方式：

方式一：等待用户交互完成后取值

将取值逻辑放在WAIT-FOR之后，确保用户已经完成选择操作：

DEFINE VARIABLE vStateText AS CHARACTER FORMAT "X(256)":U NO-UNDO.

DEFINE VARIABLE StateBox AS CHARACTER FORMAT "X(256)":U 
         LABEL "Pick a State" 
         VIEW-AS COMBO-BOX INNER-LINES 5 
         DROP-DOWN-LIST
         SIZE 16 BY 1 NO-UNDO.
     
DEFINE FRAME StateCombo
        StateBox
    WITH CENTERED ROW 4.

FOR EACH State NO-LOCK BREAK BY State.StateName:
    StateBox:ADD-LAST(State.StateName) IN FRAME StateCombo. 
END.

ENABLE StateBox WITH FRAME StateCombo.
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW. // 等待用户关闭窗口，此时已完成选择

// 三种等价的取值方式任选其一
vStateText = StateBox. // 直接使用绑定变量（最简方式）
// vStateText = SCREEN-VALUE(StateBox IN FRAME StateCombo). // SCREEN-VALUE函数方式
// vStateText = StateBox:VALUE IN FRAME StateCombo. // 控件VALUE属性方式

MESSAGE "选中的州：" vStateText VIEW-AS ALERT-BOX INFORMATION.

方式二：实时响应选择事件

通过VALUE-CHANGED事件实时获取用户选中的值：

DEFINE VARIABLE vStateText AS CHARACTER FORMAT "X(256)":U NO-UNDO.

DEFINE VARIABLE StateBox AS CHARACTER FORMAT "X(256)":U 
         LABEL "Pick a State" 
         VIEW-AS COMBO-BOX INNER-LINES 5 
         DROP-DOWN-LIST
         SIZE 16 BY 1 NO-UNDO.
     
DEFINE FRAME StateCombo
        StateBox
    WITH CENTERED ROW 4.

// 绑定选择变更事件，实时获取值
ON VALUE-CHANGED OF StateBox IN FRAME StateCombo DO:
    vStateText = StateBox.
    MESSAGE "当前选中：" vStateText VIEW-AS ALERT-BOX INFORMATION.
END.

FOR EACH State NO-LOCK BREAK BY State.StateName:
    StateBox:ADD-LAST(State.StateName) IN FRAME StateCombo. 
END.

ENABLE StateBox WITH FRAME StateCombo.
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.

关键注意点 #

• 下拉框绑定的字符变量（StateBox）会自动同步选中值，直接使用变量名是最简洁的取值方式。
• 若使用SCREEN-VALUE函数，必须指定控件所在的框架（IN FRAME StateCombo），避免框架上下文冲突。
• 取值逻辑必须在用户完成交互后执行，或通过事件触发，否则无法获取有效选中值。

内容的提问来源于stack exchange，提问作者Rokas