LIST BOX 联动的实现

有两种方式实现联动：

1、  USER-COMMAND

2、 AT  SELECTION-SCREEN  ON  VALUE-REQUEST  FOR listbox名称

例一：

REPORT  zlm_listbox_02 .

*&---------------------------------------------------------------------*
*&宏定义，填充下拉框
*&---------------------------------------------------------------------*
DEFINE fill_list .
    value - key    = &1 .                          "个就是变量下拉框的值
    value - text   = &2 .                          "这个是text
    append  value  to &3 .
END-OF-DEFINITION .

*&---------------------------------------------------------------------*
*&LIST-BOX 变量定义
*&---------------------------------------------------------------------*
TYPE-POOLS : vrm  .                                                "存放combobox内容的type pool
DATA : name              TYPE vrm_id ,                                    " list box的名称
            list_ctry    TYPE vrm_values ,                                " list box的值
            list_city    TYPE vrm_values ,                                " list box的值
            value       LIKE  LINE  OF list_ctry  .                        " list box的结构
*&---------------------------------------------------------------------*
*&屏幕定义
*&---------------------------------------------------------------------*
PARAMETERS : p_ctry  TYPE char10  AS LISTBOX  VISIBLE  LENGTH  15  USER-COMMAND zctry .
PARAMETERS : p_city  TYPE char10  AS LISTBOX  VISIBLE  LENGTH  15  USER-COMMAND zcity .


*&---------------------------------------------------------------------*
*&初始化
*&---------------------------------------------------------------------*
INITIALIZATION .
    PERFORM zform_fill_ctry .

*&---------------------------------------------------------------------*
*&根据所选国家，显示城市
*&---------------------------------------------------------------------*
AT  SELECTION-SCREEN .
    CASE sy -ucomm .
        WHEN  'ZCTRY' .
            PERFORM zform_fill_city .
        WHEN  'ZCITY' .
            MESSAGE p_city  TYPE  'I' .
        WHEN  OTHERS .
    ENDCASE .


*&---------------------------------------------------------------------*
*&      Form  zform_fill_city
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM zform_fill_city .
    DATA : value  LIKE  LINE  OF list_ctry  .                        " list box的结构
    READ  TABLE list_ctry  INTO  value   WITH  KEY  key  = p_ctry .

    REFRESH  list_city .

    IF  value - key  =  'CH' .
        fill_list  'BJ'  '北京' list_city .
        fill_list  'TJ'  '天津' list_city .
    ENDIF .
    IF  value - key  =  'EN' .
        fill_list  'LD'  '伦敦' list_city .
    ENDIF .
    IF  value - key  =  'US' .
        fill_list  'LSJ'  '洛杉矶' list_city .
        fill_list  'HSD'  '华盛顿' list_city .
    ENDIF .
    "调用函数显示listbox里面的值
    CALL  FUNCTION  'VRM_SET_VALUES'
        EXPORTING
            id      =  'P_CITY'                                         " PARAMETERS's Name
            values  = list_city .
ENDFORM .                     "zform_fill_city

*&---------------------------------------------------------------------*
*&      Form  zform_fill_ctry
*&---------------------------------------------------------------------*
*       text  填充国家
*----------------------------------------------------------------------*
FORM zform_fill_ctry .

    REFRESH  list_ctry .

    fill_list  'CH'  '中国' list_ctry .
    fill_list  'EN'  '英国' list_ctry .
    fill_list  'US'  '美国' list_ctry .

    "调用函数显示listbox里面的值
    CALL  FUNCTION  'VRM_SET_VALUES'
        EXPORTING
            id      =  'P_CTRY'                                        " PARAMETERS's Name
            values  = list_ctry .
ENDFORM .                     "zform_fill_ctry

例二：

变动很小

 INITIALIZATION.
   PERFORM zform_fill_ctry.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_ctry.
  PERFORM zform_fill_city.

或者

AT  SELECTION-SCREEN  OUTPUT  .
    PERFORM zform_fill_ctry .

AT  SELECTION-SCREEN  ON  VALUE-REQUEST  FOR p_ctry .
    PERFORM zform_fill_city .

或者直接

AT  SELECTION-SCREEN  ON  VALUE-REQUEST  FOR p_ctry .
    PERFORM zform_fill_ctry .
    PERFORM zform_fill_city .

但是出现了个问题，

就是在我变动国家后，城市框还显示上传选择的城市的key值

一直没解决，哪位知道怎样解决，请留言，谢谢