LOOP AT SCREEN

 

SELECTION-SCREEN BEGIN OF BLOCK bloc1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:
      P_DATE FOR EKBE-BUDAT OBLIGATORY,
      P_WERKS FOR MARC-WERKS OBLIGATORY,
      P_INPO  FOR EKBE-EBELN MODIF ID SC1,
      P_OUTSO FOR VBAK-VBELN MODIF ID SC2.
PARAMETERS:
      R_INBUT   RADIOBUTTON GROUP RADI USER-COMMAND U1 DEFAULT 'X',
      R_OUTBUT RADIOBUTTON GROUP RADI  .
SELECTION-SCREEN: SKIP.

SELECTION-SCREEN: SKIP.
SELECTION-SCREEN END OF BLOCK bloc1.

 IF  R_INBUT EQ 'X'.
  LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'SC1'.
         SCREEN-INPUT = 1.
      ENDIF.
      IF SCREEN-GROUP1 = 'SC2'.
         SCREEN-INPUT = 0.
      ENDIF.
      CLEAR P_OUTSO[].
      MODIFY SCREEN.
  ENDLOOP.
 ELSE.
   LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'SC1'.
         SCREEN-INPUT = 0.
      ENDIF.
      IF SCREEN-GROUP1 = 'SC2'.
         SCREEN-INPUT = 1.
      ENDIF.
      CLEAR P_INPO[].
      MODIFY SCREEN.
  ENDLOOP.
ENDIF.

如上一段代码是根据单选按钮选择不同对屏幕的输入做不同的处理。这里的一个关键是R_INBUT   RADIOBUTTON GROUP RADI USER-COMMAND U1 。

就是要申明单选按钮为命令按钮！否则只会有一种状态！