赛跑网-选择屏幕之页签制作

SAPOK_ABAP

**100作为第一个子屏幕
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECTION-SCREEN SKIP.
PARAMETERS: tab1_01 TYPE c LENGTH 10,
            tab1_02 TYPE c LENGTH 10.
SELECTION-SCREEN END OF SCREEN 100.

**200作为第二个子屏幕
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
SELECTION-SCREEN SKIP.
PARAMETERS: tab2_01 TYPE c LENGTH 10,
            tab2_02 TYPE c LENGTH 10.
SELECTION-SCREEN END OF SCREEN 200.

***将子屏幕存放到页签mytab中，
"随着页签的mytab的建立，系统自动创建一个名称为MYTAB的变量，用于控制页签的当前子屏幕
SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 5 LINES,
  "两个页签分别为button1  button2 并指定响应事件的功能码 push1 push2
                  TAB (20) button1 USER-COMMAND push1,
                  TAB (20) button2 USER-COMMAND push2,
                  END OF BLOCK mytab.

INITIALIZATION.

游客，如果您要查看本帖隐藏内容请回复

AT SELECTION-SCREEN.
"在选择屏幕中，单击页签时刷新屏幕
  CASE sy-ucomm.
    WHEN 'PUSH1'.
      mytab-dynnr = 100.
    WHEN 'PUSH2'.
      mytab-dynnr = 200.
    WHEN OTHERS.
      ...
  ENDCASE.

START-OF-SELECTION.

  WRITE mytab-dynnr.

该贴已经同步到 SAPOK_ABAP的微博

布拉德与朔太郎

学习！！

石子儿

学习，谢谢老师！

Hedy.Y

leanne

学习

dew

学习

dorian110

时间精魄

412768150

cx楼主辛苦啦，这个问题对我很重要

caizjian

学习学习啊

jiafm169

学习