<下拉框实现，二> - 屏幕的I/O控件或者Table Control的单元格通过下拉框赋值

实际的SCREEN开发中经常会遇到需要下拉框的需求，屏幕上实现 I/O控件的下拉框赋值和Table Control中的单元格下拉框赋值，实现方法相同，这里以实现Table Control（一下简称TC）中的单元格下拉框为例：

实现设置TC的单元格属性



 

然后对屏幕的PBO部分进行CODING,代码段如下

TYPE-POOLS vrm.

  DATA:vid TYPE vrm_id VALUE 'WA_ADD-BWART', "屏幕字段(可以是单个的I/O空间或者是Table Control中的一个单元格)

       vlist TYPE vrm_values,

       value LIKE LINE OF vlist.

  CLEAR:value,

        vlist.
* 下拉框可选择的值Start--*

  MOVE '311' TO value-key.

  APPEND value TO vlist.

  MOVE '201' TO value-key.

  APPEND value TO vlist.
* 下拉框可选择的值Start--*

  CALL FUNCTION 'VRM_SET_VALUES'

    EXPORTING

      ID     = vid

      VALUES = vlist.

 

经过如上操作下拉框即可实现：