selection screen 界面点击checkbox解锁本文库

SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
PARAMETERS:P_CBOX2 AS CHECKBOX USER-COMMAND SINGLECLICK,
  FULLPATH TYPE STRING.
SELECTION-SCREEN END OF BLOCK B3 .

AT SELECTION-SCREEN OUTPUT.
  IF P_CBOX2 'X'.
    LOOP AT SCREEN.
      IF SCREEN-NAME 'FULLPATH'.
        SCREEN-INPUT 1.
*        SCREEN-ACTIVE = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ELSE.
    LOOP AT SCREEN.
      IF SCREEN-NAME 'FULLPATH'.
        SCREEN-INPUT 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.

主要是加上 USER-COMMAND SINGLECLICK,才可以即使响应解锁

你可能感兴趣的:(selection screen 界面点击checkbox解锁本文库)