check box 控制显示

如果想checkbox每次选择起到控制作用

PARAMETERS: p_cb1 TYPE c AS CHECKBOX DEFAULT 'X' USER-COMMAND check,  

必须设置这个user-command 必须设置，后面的名字无所谓

REPORT  zlm_checkbox_04.

TYPE-POOLS : vrm .                                                        "存放combobox内容的type pool

DATA : name  TYPE vrm_id ,                                                 "list box的名称

list  TYPE vrm_values ,                                                   "list box的值

value  LIKE  LINE  OF list .                                                "list box的结构

*定义checkbox，指定command，为了能够响应选择屏幕中值的改变

PARAMETERS : p_cb1  TYPE  c  AS  CHECKBOX  DEFAULT  'X'  USER-COMMAND  check ,   "必须设置这个user-command

                        p_cb2  TYPE  c  AS  CHECKBOX  DEFAULT  'X'  USER-COMMAND  check .

*定义listbox，必须指定visible length

PARAMETERS : p_list1 ( 10 )  TYPE  c  AS LISTBOX  VISIBLE  LENGTH  15  ,

                        p_list2 ( 20 )  TYPE  c  AS LISTBOX  VISIBLE  LENGTH  25  .

*开始执行
AT  SELECTION-SCREEN  OUTPUT  .
    PERFORM zform_int .
    PERFORM zform_seletc .

*&---------------------------------------------------------------------*
*&      Form  zform_seletc
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM zform_seletc .
    IF p_cb1  =  '' .

        CLEAR : p_list1  .

        LOOP  AT  SCREEN  .

            IF  screen -name  =  'P_LIST1'  .

                screen - input  =  0  .

                MODIFY  SCREEN  .

            ENDIF  .

        ENDLOOP  .
    ENDIF .
    IF p_cb2  =  '' . .
        LOOP  AT  SCREEN  .

            IF  screen -name  =  'P_LIST2'  .

                screen - input  =  0  .

                MODIFY  SCREEN  .

            ENDIF  .

        ENDLOOP  .
    ENDIF .


ENDFORM .                     "zform_seletc




*&---------------------------------------------------------------------*
*&      Form  zform_int
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM zform_int .

*向listbox里面添加值

    REFRESH list  .

    value - key  =  '1'  .  "这个就是变量P_LIST的值

    value - text  =  '一'  .  "这个是text

    APPEND  value  TO list  .

    value - key  =  '2'  .

    value - text  =  '二'  .

    APPEND  value  TO list  .

*调用函数显示listbox里面的值

    CALL  FUNCTION  'VRM_SET_VALUES'
        EXPORTING
            id      =  'P_LIST1'
            values  = list .

    REFRESH list  .

    value - key  =  'A'  .

    value - text  =  '啊'  .

    APPEND  value  TO list  .

    value - key  =  'O'  .

    value - text  =  '哦'  .

    APPEND  value  TO list  .

    CALL  FUNCTION  'VRM_SET_VALUES'
        EXPORTING
            id      =  'P_LIST2'
            values  = list .
ENDFORM .                     "zform_int