您的位置：首页 > 其它

选择屏幕－实现页签选择的效果

2008-01-08 11:13 369 查看
在R3中做的一个简单的例子，代码如下：
*&---------------------------------------------------------------------*
*& Report Z_TAB
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Z_TAB.
TABLES: SSCRFIELDS,MARD.

SELECTION-SCREEN BEGIN OF SCREEN 1200 AS SUBSCREEN.
SELECTION-SCREEN: BEGIN OF BLOCK BLK1 WITH FRAME TITLE T1.
PARAMETERS: WERKS LIKE MARD-WERKS.
SELECTION-SCREEN: END OF BLOCK BLK1.
SELECTION-SCREEN END OF SCREEN 1200.

SELECTION-SCREEN BEGIN OF SCREEN 1300 AS SUBSCREEN.
SELECTION-SCREEN: BEGIN OF BLOCK BLK2 WITH FRAME TITLE T2.
PARAMETERS: MATNR LIKE MARD-MATNR.
SELECTION-SCREEN: END OF BLOCK BLK2.
SELECTION-SCREEN END OF SCREEN 1300.

SELECTION-SCREEN BEGIN OF TABBED BLOCK tabb1 FOR 14 LINES.
SELECTION-SCREEN TAB (15) tabs1 USER-COMMAND ucomm1
DEFAULT SCREEN 1200.
SELECTION-SCREEN TAB (15) tabs2 USER-COMMAND ucomm2
DEFAULT SCREEN 1300.
SELECTION-SCREEN END OF BLOCK tabb1.

INITIALIZATION.
tabs1 = ''.
tabs2 = ''.
T1 = ''.
T2 = ''.

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息
标签： 
相关文章推荐
新的分享
章节导航