TABLE CONTROL 行双击事件

1. 要在屏幕上自定义双击事件,首先把需要回应双击的字段的属性: 响应双击/Responds to Double-Click 给勾选上.

2.在状态定义上给F2的功能键分配一个功能码,如DOUB.

3.编程实现,在USER-COMMAND中编写相关的代码,如:

1. CASE OK_CODE.
   
2. WHEN 'DOUB'.   "定义的功能码
   
3. CLEAR OK_CODE.
   
4. PERFORM GET_FIELD.
   
5. ENDCASE.

复制代码

如果有多个字段需要回应的话,可以通过GET CURSOR FIELD V_FIELD VALUE V_TABNAME ,如果是在TABLE CONTROL中可以用GET CURSOR FIELD LINE 来捕捉鼠标双击了那个字段.

1. FORM GET_FIELD.
   
2. DATA:FID(20).
   
3. GET CURSOR FIELD FID.
   
4. IF FID = 'ITAB-BGRUP'.
   
5. SET PARAMETER ID 'BUK' FIELD P_BUKRS.
   
6. SET PARAMETER ID 'BLN' FIELD P_BELNR.
   
7. SET PARAMETER ID 'GJR' FIELD P_GJAHR.
   
8. CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
   
9. ENDIF.
   
10. ENDFORM. "GET_FIELD

复制代码