Combobox 进步4gl。在浏览中创建组合框

如何在浏览中创建静态组合框

我想显示的输出示例：

第1列

组合框1

第2列

第3列

组合框2

旁注：

---

还想知道如何添加动态组合框。

您可以在define BROWSE语句中将单元格定义为组合框

DEFINE BROWSE brComboBox
  QUERY qTT DISPLAY
    fieldA
    fieldB
    fieldC VIEW-AS COMBO-BOX LIST-ITEMS "a,b,c,d"
    fieldD 
      ENABLE fieldC
    WITH NO-ROW-MARKERS SEPARATORS SIZE 70 BY 4.5 FONT 10 FIT-LAST-COLUMN.

如果使用AppBuilder GUI，只需编辑浏览的显示部分，使其包含所有字段：

  fieldA
  fieldB
  fieldC VIEW-AS COMBO-BOX LIST-ITEMS "a,b,c,d"
  fieldD 
    ENABLE fieldC

---

可以在define BROWSE语句中将单元格定义为组合框

DEFINE BROWSE brComboBox
  QUERY qTT DISPLAY
    fieldA
    fieldB
    fieldC VIEW-AS COMBO-BOX LIST-ITEMS "a,b,c,d"
    fieldD 
      ENABLE fieldC
    WITH NO-ROW-MARKERS SEPARATORS SIZE 70 BY 4.5 FONT 10 FIT-LAST-COLUMN.

如果使用AppBuilder GUI，只需编辑浏览的显示部分，使其包含所有字段：

  fieldA
  fieldB
  fieldC VIEW-AS COMBO-BOX LIST-ITEMS "a,b,c,d"
  fieldD 
    ENABLE fieldC

---

可以在define BROWSE语句中将单元格定义为组合框

DEFINE BROWSE brComboBox
  QUERY qTT DISPLAY
    fieldA
    fieldB
    fieldC VIEW-AS COMBO-BOX LIST-ITEMS "a,b,c,d"
    fieldD 
      ENABLE fieldC
    WITH NO-ROW-MARKERS SEPARATORS SIZE 70 BY 4.5 FONT 10 FIT-LAST-COLUMN.

如果使用AppBuilder GUI，只需编辑浏览的显示部分，使其包含所有字段：

  fieldA
  fieldB
  fieldC VIEW-AS COMBO-BOX LIST-ITEMS "a,b,c,d"
  fieldD 
    ENABLE fieldC

---

可以在define BROWSE语句中将单元格定义为组合框

DEFINE BROWSE brComboBox
  QUERY qTT DISPLAY
    fieldA
    fieldB
    fieldC VIEW-AS COMBO-BOX LIST-ITEMS "a,b,c,d"
    fieldD 
      ENABLE fieldC
    WITH NO-ROW-MARKERS SEPARATORS SIZE 70 BY 4.5 FONT 10 FIT-LAST-COLUMN.

如果使用AppBuilder GUI，只需编辑浏览的显示部分，使其包含所有字段：

  fieldA
  fieldB
  fieldC VIEW-AS COMBO-BOX LIST-ITEMS "a,b,c,d"
  fieldD 
    ENABLE fieldC

---

当我尝试使用自由形式查询的第二个代码时，它会给出错误消息

“无法理解--'fieldB fieldC'”247

如果我将

视图删除为…

，则它将运行，但没有组合框您使用的是什么版本？代码的工作方式完全符合我的预期，您确定要复制它而不做任何更改，并且定义了临时表吗？我们使用的是9.1E和yes。。我创建了临时表TT，所有字段都使用CHAR。为每个TT创建了具有open query browse名称的自由形式查询。然后在显示触发器上，我添加了字段当我尝试使用自由形式查询第二个代码时，它会给出错误消息

“无法理解--'fieldB fieldC'”247

如果我将

视图删除为…

，它将运行，但没有组合框您使用的是什么版本？代码的工作方式完全符合我的预期，您确定要复制它而不做任何更改，并且定义了临时表吗？我们使用的是9.1E和yes。。我创建了临时表TT，所有字段都使用CHAR。为每个TT创建了具有open query browse名称的自由形式查询。然后在显示触发器上，我添加了字段当我尝试使用自由形式查询第二个代码时，它会给出错误消息

“无法理解--'fieldB fieldC'”247

如果我将

视图删除为…

，它将运行，但没有组合框您使用的是什么版本？代码的工作方式完全符合我的预期，您确定要复制它而不做任何更改，并且定义了临时表吗？我们使用的是9.1E和yes。。我创建了临时表TT，所有字段都使用CHAR。为每个TT创建了具有open query browse名称的自由形式查询。然后在显示触发器上，我添加了字段当我尝试使用自由形式查询第二个代码时，它会给出错误消息

“无法理解--'fieldB fieldC'”247

如果我将

视图删除为…

，它将运行，但没有组合框您使用的是什么版本？代码的工作方式完全符合我的预期，您确定要复制它而不做任何更改，并且定义了临时表吗？我们使用的是9.1E和yes。。我创建了临时表TT，所有字段都使用CHAR。为每个TT创建了具有open query browse名称的自由形式查询。然后在显示触发器上，我添加了字段