在SAP系统的开发中我们经常用到tab控件的使用,本文介绍了如何使用selection-screen来定义tab控件,每一个tab控件页内置一个子屏幕(subscreen),所以要先定义一个子屏幕。
代码如下:
REPORT zrr_selectionscreen .
CALL SCREEN 100.
DATA c1(8) TYPE c.
"define a subscreen-100 placed in the first tab
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:type1 FOR c1.
SELECTION-SCREEN END OF BLOCK a1.
SELECTION-SCREEN END OF SCREEN 100.
"define a subscreen-200 placed in the second tab
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
PARAMETERS typ2(20) TYPE c.
SELECTION-SCREEN END OF SCREEN 200.
SELECTION-SCREEN BEGIN OF TABBED BLOCK mytab FOR 6 LINES.
SELECTION-SCREEN TAB (20) button1 USER-COMMAND push1 DEFAULT SCREEN 100.
SELECTION-SCREEN TAB (20) button2 USER-COMMAND push2 DEFAULT SCREEN 200.
SELECTION-SCREEN END OF BLOCK mytab.
INITIALIZATION.
button1 = text-001.
button2 = text-002.
mytab-dynnr = 100.
AT SELECTION-SCREEN.
CASE sy-ucomm.
WHEN 'push1'.
mytab-dynnr = 100.
mytab-activetab = 'BUTTON1'.
WHEN 'push2'.
mytab-dynnr = 200.
mytab-activetab = 'BUTTON2'.
ENDCASE.
转载于:https://blog.51cto.com/saper/638804