Tables: MARA.
*在这里定义一个用于显示的内部表
data: begin of itab occurs
10
,
MATNR like MARA-MATNR
,
MTART LIKE MARA-MTART
,
MEINS LIKE MARA-MEINS
,
end of itab.
*
type-pools: slis.
*定义一个显示的内表的一行
DATA: L_ALV_FILED TYPE SLIS_FIELDCAT_ALV.
*定义显示的一列的框架
DATA: L_ALV_FILEDCAT TYPE SLIS_T_FIELDCAT_ALV.
CLEAR L_ALV_FILED.
*定义第一列的属性
*定义显示位置
,
显示的字段.在下面传递内表中的名字一样的值
*显示标题名字
L_ALV_FILED-COL_POS
=
1
.
L_ALV_FILED-FIELDNAME
=
'MATNR'.
L_ALV_FILED-seltext_M
=
'第一列'.
APPEND L_ALV_FILED TO L_ALV_FILEDCAT.
L_ALV_FILED-COL_POS
=
2
.
L_ALV_FILED-FIELDNAME
=
'MTART'.
L_ALV_FILED-seltext_M
=
'第二列'.
APPEND L_ALV_FILED TO L_ALV_FILEDCAT.
L_ALV_FILED-COL_POS
=
3
.
L_ALV_FILED-FIELDNAME
=
'MEINS'.
L_ALV_FILED-seltext_M
=
'第三列'.
APPEND L_ALV_FILED TO L_ALV_FILEDCAT.
*输出画面
SELECT-OPTIONS: P_MATNR FOR MARA-MATNR.
*查询以下三个字段的数据
,
然后放入这个内表
SELECT MATNR
MTART
MEINS
INTO CORRESPONDING FIELDS OF TABLE ITAB
FROM MARA
WHERE MATNR IN P_MATNR.
APPEND ITAB.
*然后调用以下的这个函数.然后
* 把定义的显示框架和数据内表传递过去.
* REUSE_ALV_LIST_DISPLAY
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
IT_FIELDCAT
=
L_ALV_FILEDCAT
Tables
t_outtab
=
ITAB.