LIST BOX 联动的实现

最新推荐文章于 2021-05-28 10:04:09 发布

weixin_30709929

最新推荐文章于 2021-05-28 10:04:09 发布

阅读量90

点赞数

原文链接：http://www.cnblogs.com/senlinmu110/p/3802255.html

版权

有两种方式实现联动：

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值