REPORT  ZTEST_QY.

*ALV用到的类库

TYPE-POOLS:slis.

DATA: wa_alv_filed TYPE slis_fieldcat_alv, "列描述

      wa_alv_filedcat TYPE slis_t_fieldcat_alv."列描述内表,列清单

*定义工作区

DATA: wa type spfli,

*定义内表

itab_wa LIKE TABLE OF wa WITH HEADER LINE.

data: begin of wa_spfli ,

      carrid type spfli-carrid,       connid type spfli-connid,       cityfrom type spfli-cityfrom,       airpfrom type spfli-airpfrom,       cityto type spfli-cityto,       airpto type spfli-airpto,       end of wa_spfli,       it_spfli like table of wa_spfli with header line.

data: g_qiqi like sy-datum,

      g_zhiqi like sy-datum. SELECT-OPTIONS: gs_qiqi FOR g_qiqi,                 gs_zhiqi FOR g_zhiqi.

*查询数据放到工作区,工作区处理后放到内表

SELECT carrid connid cityfrom airpfrom cityto airpto FROM spfli INTO table it_spfli up to 5 rows .

*定义列信息

wa_alv_filed-col_pos = 1. wa_alv_filed-fieldname = 'CARRID'.  " 对应的内表中的字段名称 wa_alv_filed-seltext_m = '航线承运人ID'. "ALV中显示的标题 "wa_alv_filed-outputlen = 20. " 列的显示宽度，可以不设置 APPEND wa_alv_filed TO wa_alv_filedcat.

wa_alv_filed-col_pos = 2.

wa_alv_filed-fieldname = 'CONNID'. wa_alv_filed-seltext_m = '航班连接Id'. APPEND wa_alv_filed TO wa_alv_filedcat.

WA_ALV_FILED-COL_POS = 3.

WA_ALV_FILED-FIELDNAME = 'CITYFROM'. WA_ALV_FILED-SELTEXT_M = '起飞城市'. APPEND WA_ALV_FILED TO WA_ALV_FILEDCAT.

WA_ALV_FILED-COL_POS = 4.

WA_ALV_FILED-FIELDNAME = 'AIRPFROM'. WA_ALV_FILED-SELTEXT_M = '起飞机场'. APPEND WA_ALV_FILED TO WA_ALV_FILEDCAT.

WA_ALV_FILED-COL_POS = 5.

WA_ALV_FILED-FIELDNAME = 'CITYTO'. WA_ALV_FILED-SELTEXT_M = '目标城市'. APPEND WA_ALV_FILED TO WA_ALV_FILEDCAT.

WA_ALV_FILED-COL_POS = 6.

WA_ALV_FILED-FIELDNAME = 'AIRPTO'. WA_ALV_FILED-SELTEXT_M = '目的机场'. APPEND WA_ALV_FILED TO WA_ALV_FILEDCAT.

*调用ALV显示表单数据

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'   EXPORTING     it_fieldcat = wa_alv_filedcat   TABLES     t_outtab    = it_spfli.