◆◆0

如何在选择画面上添加按钮

石头 8月 31, 2016 Report 7,675 views 0

可以通过Pushbutton关键字给选择画面中添加按钮，效果如下图：

代码如下：

 REPORT  Z_WUWEI_0009.  
  
TABLES SSCRFIELDS.  
  
  SELECTION-SCREEN:  
    ULINE /1(83),  
    COMMENT /30(30) TEXT-001,  
    ULINE /1(83),  
    SKIP.  
  
  SELECTION-SCREEN BEGIN OF LINE.  
    SELECTION-SCREEN COMMENT 2(15) TXT1.  
    PARAMETER OUT(3) TYPE C.  
  SELECTION-SCREEN END OF LINE.  
  
  SELECTION-SCREEN:  
    SKIP 1,  
    BEGIN OF BLOCK BLK WITH FRAME TITLE T1,  
      BEGIN OF LINE,  
*       添加三个按钮
        PUSHBUTTON 2(10) BTN1 USER-COMMAND COMM1,  
        PUSHBUTTON 12(10) BTN2 USER-COMMAND COMM2,  
        PUSHBUTTON 22(10) BTN3 USER-COMMAND COMM3,  
      END OF LINE,  
    END OF BLOCK BLK.  
*&---------------------------------------------------------------------*  
   INITIALIZATION.  
*   给按钮添加文本
    TXT1 = '总分: '.  
    T1 = '给选择屏幕添加按钮'.  
    BTN1 = '汤姆'.  
    BTN2 = '露西'.  
    BTN3 = '韩梅梅'.