使用ALV顯示內(nèi)表

昵稱178515 2009-10-09

展開全文

REPORT  zss_test1.

TABLES: mara.

TYPE-POOLS: slis.

TYPES: BEGIN OF wa_mara,
  matnr TYPE mara-matnr,
  meins TYPE mara-meins,
  END OF wa_mara.
DATA: it_mara TYPE TABLE OF wa_mara,
      l_pos TYPE i VALUE 1.

DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
      wa_fieldcat TYPE slis_fieldcat_alv.

SELECT matnr meins FROM mara
  INTO CORRESPONDING FIELDS OF TABLE it_mara.

*定義字段目錄
CLEAR wa_fieldcat.
l_pos = l_pos + 1.
wa_fieldcat-col_pos       =  l_pos.
wa_fieldcat-fieldname     = 'MATNR'.    "MATNR需要大寫，Debug時驗證系統(tǒng)默認(rèn)為大寫
wa_fieldcat-outputlen     = 10.
wa_fieldcat-tabname   = 'IT_MARA'.
wa_fieldcat-seltext_m     = '物料號'.    "同上
APPEND wa_fieldcat TO gt_fieldcat.

CLEAR wa_fieldcat.
l_pos = l_pos + 1.
wa_fieldcat-col_pos       =  l_pos.
wa_fieldcat-fieldname     = 'MEINS'.
wa_fieldcat-outputlen     = 18.
wa_fieldcat-tabname   = 'IT_MARA'.
wa_fieldcat-seltext_m     = '單位'.
APPEND wa_fieldcat TO gt_fieldcat.

* output
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    i_callback_program = sy-repid
    it_fieldcat        = gt_fieldcat[]
  TABLES
    t_outtab           = it_mara.

==========================================

輸出模式有2種：