TABLES:MARA.
TYPE-POOLS: SLIS.
SELECT-OPTIONS:MATNR FOR MARA-MATNR OBLIGATORY.

DATA:LT_MARA TYPE TABLE OF MARA WITH HEADER LINE,
FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
LAYOUT TYPE SLIS_LAYOUT_ALV,
W_REPID LIKE SY-REPID.

START-OF-SELECTION.
SELECT * FROM MARA INTO TABLE LT_MARA
WHERE MATNR IN MATNR.

W_REPID = SY-REPID.

• 定义热键显示字段，使双击事件有效
  FIELDCAT-REF_TABNAME = ‘LT_MARA’.
  FIELDCAT-FIELDNAME = ‘MATNR’.
  FIELDCAT-HOTSPOT = ‘X’.
  APPEND FIELDCAT.

CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY’
EXPORTING
I_CALLBACK_PROGRAM = W_REPID "定义回执程序
IS_LAYOUT = LAYOUT
I_STRUCTURE_NAME = ‘MARA’
I_CALLBACK_USER_COMMAND = ‘ALV_USER_COMMAND’ "定义执行事件
IT_FIELDCAT = FIELDCAT[]
TABLES
T_OUTTAB = LT_MARA.

---------------------------------------------------------------------

•   事件触发子程序                         *
  

---------------------------------------------------------------------
FORM ALV_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
WHEN ‘&IC1’.

• 获取当前ALV所在行数据
  READ TABLE LT_MARA INDEX RS_SELFIELD-TABINDEX.
  SET PARAMETER ID: ‘MAT’ FIELD LT_MARA-MATNR.
  CALL TRANSACTION ‘MM03’ AND SKIP FIRST SCREEN.
  ENDCASE.
  ENDFORM.

---

作者：兔宝
来源：CSDN
原文：https://blog.csdn.net/szlaptop/article/details/8252093
版权声明：本文为博主原创文章，转载请附上博文链接！