这是运行的结果。对于我们的数据表我们需要字段可以自定义以ALV的格式输出。

特别注意点：wa_alv_field-fieldname = ‘EMPID‘.这个地方 EMPID一定要大写否则会在运行时报错。

*&---------------------------------------------------------------------*

*& Report  ZTBALV1

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*



REPORT  ztbalv1.

*ALV使用到的类库

TYPE-POOLS: slis.

*一列描述

DATA wa_alv_field TYPE slis_fieldcat_alv.

*描述内表，列清单

DATA wa_alv_fieldcat TYPE slis_t_fieldcat_alv.

*定义内表 , 赋值

DATA wa_emp LIKE TABLE OF ztbemp WITH HEADER LINE.

SELECT * INTO TABLE wa_emp FROM ztbemp.





wa_alv_field-col_pos = 1."*定义对应字段

wa_alv_field-fieldname = ‘EMPID‘.

wa_alv_field-seltext_m = ‘员工号‘.

APPEND wa_alv_field TO wa_alv_fieldcat.



wa_alv_field-col_pos = 2."*定义对应字段

wa_alv_field-fieldname = ‘EMPNAME‘.

wa_alv_field-seltext_m = ‘员工姓名‘.

APPEND wa_alv_field TO wa_alv_fieldcat.



 wa_alv_field-col_pos = 3."*定义对应字段

 wa_alv_field-fieldname = ‘AGE‘.

 wa_alv_field-seltext_m = ‘员工年龄‘.

 APPEND wa_alv_field to wa_alv_fieldcat.



  wa_alv_field-col_pos = 4."*定义对应字段

 wa_alv_field-fieldname = ‘EMAIL‘.

 wa_alv_field-seltext_m = ‘员工邮箱‘.

 APPEND wa_alv_field to wa_alv_fieldcat.



  wa_alv_field-col_pos = 5."*定义对应字段

 wa_alv_field-fieldname = ‘TEL‘.

 wa_alv_field-seltext_m = ‘员工电话‘.

 APPEND wa_alv_field to wa_alv_fieldcat.



   wa_alv_field-col_pos = 6."*定义对应字段

 wa_alv_field-fieldname = ‘ADDR‘.

 wa_alv_field-seltext_m = ‘员工地址‘.

 APPEND wa_alv_field to wa_alv_fieldcat.



  wa_alv_field-col_pos = 7."*定义对应字段

 wa_alv_field-fieldname = ‘GRAD‘.

 wa_alv_field-seltext_m = ‘员工标志‘.

 APPEND wa_alv_field to wa_alv_fieldcat.



   wa_alv_field-col_pos = 8."*定义对应字段

 wa_alv_field-fieldname = ‘UNAME‘.

 wa_alv_field-seltext_m = ‘员工登陆名‘.

 APPEND wa_alv_field to wa_alv_fieldcat.



CALL FUNCTION ‘REUSE_ALV_LIST_DISPLAY‘

 EXPORTING

*     I_INTERFACE_CHECK              = ‘ ‘

*     I_BYPASSING_BUFFER             =

*     I_BUFFER_ACTIVE                = ‘ ‘

*     I_CALLBACK_PROGRAM             = ‘ ‘

*     I_CALLBACK_PF_STATUS_SET       = ‘ ‘

*     I_CALLBACK_USER_COMMAND        = ‘ ‘

*     I_STRUCTURE_NAME               =

*     IS_LAYOUT                      =

       it_fieldcat                    =  wa_alv_fieldcat

*     IT_EXCLUDING                   =

*     IT_SPECIAL_GROUPS              =

*     IT_SORT                        =

*     IT_FILTER                      =

*     IS_SEL_HIDE                    =

*     I_DEFAULT                      = ‘X‘

*     I_SAVE                         = ‘ ‘

*     IS_VARIANT                     =

*     IT_EVENTS                      =

*     IT_EVENT_EXIT                  =

*     IS_PRINT                       =

*     IS_REPREP_ID                   =

*     I_SCREEN_START_COLUMN          = 0

*     I_SCREEN_START_LINE            = 0

*     I_SCREEN_END_COLUMN            = 0

*     I_SCREEN_END_LINE              = 0

*     IR_SALV_LIST_ADAPTER           =

*     IT_EXCEPT_QINFO                =

*     I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE

*   IMPORTING

*     E_EXIT_CAUSED_BY_CALLER        =

*     ES_EXIT_CAUSED_BY_USER         =

  TABLES

    t_outtab                       =  wa_emp

* EXCEPTIONS

*   program_error                  = 1

*   OTHERS                         = 2

          .

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

运行