选择界面LISTBOX

REPORT Z_BARRY_LISTBOX .

TYPE-POOLS: vrm.
DATA: it_val1 TYPE vrm_values,
      it_val2 TYPE vrm_values,
      w_line LIKE LINE OF it_val1.
PARAMETERS: p_bukrs LIKE t001-bukrs AS LISTBOX VISIBLE LENGTH 25 OBLIGATORY,
            p_month LIKE t247-mnr AS LISTBOX VISIBLE LENGTH 12 OBLIGATORY.

INITIALIZATION.
  SELECT bukrs butxt FROM t001 INTO (w_line-key, w_line-text).
    APPEND w_line TO it_val1.
    CHECK p_bukrs IS INITIAL.
    p_bukrs = w_line-key.
  ENDSELECT.
  SELECT mnr ltx FROM t247 INTO (w_line-key, w_line-text) WHERE spras = sy-langu.
    APPEND w_line TO it_val2.
    CHECK p_month IS INITIAL.
    p_month = w_line-key.
  ENDSELECT.

AT SELECTION-SCREEN OUTPUT.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'P_BUKRS'
      values = it_val1.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'P_MONTH'
      values = it_val2.

END-OF-SELECTION.
  WRITE: / 'Company Code:', p_bukrs.
  WRITE: / 'Month:', p_month.

 

 

如果需要删除LISTBOX的项：

REPORT  z_barry_listbox    .

 

TYPE-POOLS: vrm.
DATA: it_val TYPE vrm_values WITH HEADER LINE .
PARAMETERS: p_month LIKE t247-mnr AS LISTBOX VISIBLE LENGTH 12 OBLIGATORY .
SELECTION-SCREEN PUSHBUTTON 52(12) p_butt1 USER-COMMAND pb01.

 

INITIALIZATION.
  p_butt1 = '删除LISTBOX的项'.
  SELECT mnr ltx FROM t247 INTO TABLE it_val WHERE spras = sy-langu.

 

AT SELECTION-SCREEN OUTPUT.
  READ TABLE it_val INDEX 1  .
  IF sy-subrc = 0 .
    p_month = it_val-key.
  ELSE.
    p_month = ''.
  ENDIF.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'P_MONTH'
      values = it_val[].

 

AT SELECTION-SCREEN.
  CASE sy-ucomm .
    WHEN 'PB01'.
      DELETE it_val INDEX 1 .
  ENDCASE.