在function模式的ALV如何响应单击事件,它的实现原理大致跟ALV的双击事件、按钮事件一样的,它的实现过程分以下两步:
1)首先要设置单元格能够响应单击事件(hotspot事件)。
跟单元格有关,肯定是在字段目录实现的(slis_t_fieldcat_alv),字段hotspot用于设置响应单击事件。
t_field-hotspot = 'X'。
2)注册(设置)ALV的事件响应过程。
(1)定义ALV事件响应子例程,如下所示:
FORM ALV_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
WHEN '&IC1' . “这个功能码对应的双击/单击事件
CASE RS_SELFIELD-SEL_TAB_FIELD. "这里就对应的是单元格定位
WHEN '1-TSZH' . “对应的是输出的内表字表名,其中1-是固定的格式,后面加内表字段名
ENDCASE .
ENDCASE .
ENDFORM . "ALV_USER_COMMAND
(2)注册(设置)ALV响应事件,如下所示:
G_REPID = SY-REPID. “这个是必需的,如果没有这个,就不能响应事件了.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = G_REPID
IS_LAYOUT = GS_LAYOUT
IT_FIELDCAT = GT_FIELDCAT[]
* I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
I_CALLBACK_USER_COMMAND = 'ALV_USER_COMMAND' "这里注册(设置)事件响应
I_SAVE = 'A'
TABLES
T_OUTTAB = T_OUTPUT[]
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2 .
通过以上的两个步骤就可以实现ALV的单击事件了。