LIST BOX 联动的实现_SAP刘梦_新浪博客

有两种方式实现联动：

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值

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

欢迎关注订阅号：SAP学习记录 （SAPlearning ）