*-----------------------雙擊后轉(zhuǎn)到事務(wù)ME23N顯示詳細(xì)信息------------------*
FORM user_command USING r_ucomm? LIKEsy-ucomm"雙擊
???????????????????????rs_selfield TYPE slis_selfield."行數(shù)
*? rs_selfield-refresh ='X'.???"控制grid產(chǎn)生新屏幕
? IF r_ucomm = '&IC1'."雙擊
??? READ TABLEitab_a? INDEX rs_selfield-tabindex.
*??? ifrs_selfield-FIELDNAME = 'EBELN'.
???rs_selfield-value = itab_a-ebeln.
??? SETPARAMETER ID 'BES' FIELD rs_selfield-value . "BES;傳遞的參數(shù)ID
??? CALLTRANSACTION 'ME23N' AND SKIP FIRST SCREEN."跳過(guò)第一個(gè)屏幕
*???endif.
? ENDIF.
ENDFORM.???????????????????"user_command

?

*-------------------------雙擊后彈出信息框顯示詳細(xì)信息-------------------*

FORM user_command USING r_ucomm TYPE sy-ucomm
???????????????????????rs_selfield TYPE slis_selfield.
? CASE r_ucomm.? " Linepicking
??? WHEN'&IC1'.
?????DATA msg TYPE string.
?????FIELD-SYMBOLS <line> LIKE LINE OFitab_a.??"定義局部字段符號(hào)<LINE>
?????READ TABLE itab_a INDEX rs_selfield-tabindex ASSIGNING<line>.?"ASSIGNING:將數(shù)據(jù)對(duì)象分配給字段符號(hào)
?????CHECK sy-subrc = 0.

?

?????CONCATENATE 'You pick line'<line>-text INTO msg SEPARATED BYspace.? "連接字符串
?????MESSAGE msg TYPE 'I'.
??? WHENOTHERS.
? ENDCASE.
ENDFORM.???????????????????"user_command

?

注：ZR_MM_006有比較詳細(xì)的例程。

總結(jié)

以上是生活随笔為你收集整理的ALV报表中处理双击行项目事件的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。