ABAP 给选择屏幕添加按钮

效果如图:

ABAP 给选择屏幕添加按钮


CODE:

[plain] view plain copy
  1. REPORT  Z_WUWEI_0009.  
  2.   
  3. TABLES SSCRFIELDS.  
  4.   
  5.   SELECTION-SCREEN:  
  6.     ULINE /1(83),  
  7.     COMMENT /30(30) TEXT-001,  
  8.     ULINE /1(83),  
  9.     SKIP.  
  10.   
  11.   SELECTION-SCREEN BEGIN OF LINE.  
  12.     SELECTION-SCREEN COMMENT 2(15) TXT1.  
  13.     PARAMETER OUT(3) TYPE C.  
  14.   SELECTION-SCREEN END OF LINE.  
  15.   
  16.   SELECTION-SCREEN:  
  17.     SKIP 1,  
  18.     BEGIN OF BLOCK BLK WITH FRAME TITLE T1,  
  19.       BEGIN OF LINE,  
  20.         PUSHBUTTON 2(10) BTN1 USER-COMMAND COMM1,  
  21.         PUSHBUTTON 12(10) BTN2 USER-COMMAND COMM2,  
  22.         PUSHBUTTON 22(10) BTN3 USER-COMMAND COMM3,  
  23.       END OF LINE,  
  24.     END OF BLOCK BLK.  
  25. *&---------------------------------------------------------------------*  
  26.    INITIALIZATION.  
  27.     TXT1 = '总分: '.  
  28.     T1 = '给选择屏幕添加按钮'.  
  29.     BTN1 = '汤姆'.  
  30.     BTN2 = '露西'.  
  31.     BTN3 = '韩梅梅'.