ABAP--处理'REUSE_ALV_GRID_DISPLAY'的双击事件

1 定义命令处理Form
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
                  RS_SELFIELD TYPE SLIS_SELFIELD.

  DATA: VBELN1 LIKE L_SPETAB-VBELN, VBTYP1 LIKE L_SPETAB-VBTYP.
  RS_SELFIELD-REFRESH = 'X'.     "控制grid产生新屏幕
  CASE R_UCOMM.
    WHEN  'BEAN' OR '&IC1'.  "双击事件
      LOOP AT L_SPETAB WHERE SELK = 'X' .
        VBELN1 = L_SPETAB-VBELN.
        VBTYP1 = L_SPETAB-VBTYP.
        CALL FUNCTION 'RV_CALL_CHANGE_TRANSACTION'
          EXPORTING
            VBELN = VBELN1
            VBTYP = VBTYP1.

        COL = COL_BEARBEITEN.
        FARB-FARB2 = COL.
        L_SPETAB-COL = FARB.
        LF_LAYOUT-INFO_FIELDNAME    = 'L_SPETAB-COL'.   
        MODIFY L_SPETAB.
        CLEAR: VBELN1, VBTYP1.
      ENDLOOP.