hncztwh的专栏

REPORT ZTEST_TAN9. TABLES:MARC. * SUBSCREEN 1 SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN. SELECT-OPTIONS:S_MATNR FOR MARC-MATNR. SELECTION-SCREEN END OF SCREEN 100. * SUBSCREEN 2 SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN. SELECT-OPTIONS:S_WERKS FOR MARC-WERKS. SELECTION-SCREEN END OF SCREEN 200. SELECTION-SCREEN: BEGIN OF TABBED BLOCK MYTAB FOR 10 LINES, TAB (20) BUTTON1 USER-COMMAND PUSH1, TAB (20) BUTTON2 USER-COMMAND PUSH2, END OF BLOCK MYTAB. INITIALIZATION. BUTTON1 = 'TAB页条件1'. BUTTON2 = 'TAB页条件2'. MYTAB-PROG = SY-REPID. MYTAB-DYNNR = 100. MYTAB-ACTIVETAB = 'BUTTON1'. AT SELECTION-SCREEN. CASE SY-DYNNR. WHEN 1000. CASE SY-UCOMM. WHEN 'PUSH1'. MYTAB-DYNNR = 100. MYTAB-ACTIVETAB = 'BUTTON1'. WHEN 'PUSH2'. MYTAB-DYNNR = 200. MYTAB-ACTIVETAB = 'BUTTON2'. ENDCASE. ENDCASE. START-OF-SELECTION.