如何根据变量中的值更改进度浏览中字段的长度

Question

我使用了BROWSE小部件来显示搜索结果。基于TEMP-TABLE中几个可用字段之一的搜索。

我要做的是动态地将匹配字段的格式设置为"x(16)"而不是"x(11)"。匹配的字段名称存储在一个变量中。

下面的例子是一个静态浏览，其中搜索是基于"desc1"，我想使它成为动态的，这样它就可以用来显示结果，而不管匹配字段。

DEFINE BROWSE brResults
QUERY qResults
DISPLAY
  ttRowsmaj.desc1 FORMAT "x(16)" COLUMN-LABEL "Desc 1"
  ttRowsmaj.desc2 FORMAT "x(11)" COLUMN-LABEL "Desc 2"
  ttRowsmaj.desc3 FORMAT "x(11)" COLUMN-LABEL "Desc 3"
  ttRowsmaj.desc4 FORMAT "x(11)" COLUMN-LABEL "Desc 4"
  ttRowsmaj.desc5 FORMAT "x(11)" COLUMN-LABEL "Desc  5"
  WITH 11 DOWN MULTIPLE NO-BOX.

谁能帮我做那件事?

Answer 1

您可以这样设置缓冲区字段的格式:

ttRowsmaj.desc3:FORMAT IN BROWSE brResults = "x(16)".

但是它只会改变DISPLAY格式，而不会改变列的宽度。要设置宽度，可以这样做:

ttRowsmaj.desc3:WIDTH IN BROWSE brResults = 20.

或更动态的方法:

DEFINE VARIABLE iCol         AS INTEGER     NO-UNDO.
DEFINE VARIABLE cSearchField AS CHARACTER   NO-UNDO.
/* Assuming search-field was "desc4" */
ASSIGN 
    cSearchField = "desc4".
/* Go through all columns */
DO iCol = 1 TO BROWSE brResults:NUM-COLUMNS.
    /* If column name matches serch*/
    IF BROWSE brResults:GET-BROWSE-COLUMN(iCol):NAME = cSearchField THEN DO:
        /* Set format & width */
        BROWSE brResults:GET-BROWSE-COLUMN(iCol):FORMAT = "X(16)".
        BROWSE brResults:GET-BROWSE-COLUMN(iCol):WIDTH  = 25.
    END.
END.