ABAP 选择屏幕页签展示
点击上方 蓝字 关注我们
D on’t worry about failure; you only have to be right once.
别害怕失败，只要做对一次就够了。
说 明
本文介绍ABAP如何在选择屏幕实现页签展示效果：
参照标准程序： ** DEMO_SEL_SCREEN_WITH_TABSTRIP **
效 果
代 码
" 选择屏幕作为子屏幕
TABLES spfli .
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN .
SELECT-OPTIONS :s_carrid FOR spfli \- carrid , " 航线代码
s_connid FOR spfli \- connid . " 航班编号
SELECTION-SCREEN END OF SCREEN 100 .SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN .
SELECT-OPTIONS :s_countr FOR spfli \- countryfr , " 起飞国家
s_counto FOR spfli \- countryto . " 到达国家
SELECTION-SCREEN END OF SCREEN 200 ." 选择屏幕（页签展示）
SELECTION-SCREEN :BEGIN OF TABBED BLOCK mytab FOR 10 LINES , " 名称及高度
TAB ( 20 ) tab1 USER-COMMAND fc1 ,
TAB ( 20 ) tab2 USER-COMMAND fc2 ,
TAB ( 20 ) tab3 USER-COMMAND fc3 DEFAULT SCREEN 300 , " 绘制子屏幕
END OF BLOCK mytab .INITIALIZATION .
tab1 = ' 选择屏幕 1' .
tab2 = ' 选择屏幕 2' .
tab3 = ' 绘制屏幕 ' .
" 默认 Tab 页
mytab \- prog = sy \- repid .
mytab \- dynnr = 100 .
mytab \- activetab = 'TAB1' .
AT SELECTION-SCREEN .
CASE sy \- ucomm .
WHEN 'FC1' .
mytab \- prog = sy \- repid .
mytab \- dynnr = 100 .
mytab \- activetab = 'TAB1' .
WHEN 'FC2' .
mytab \- prog = sy \- repid .
mytab \- dynnr = 200 .
mytab \- activetab = 'TAB2' .
ENDCASE .以上是今日分享，希望对你有所帮助~~~
欢迎点赞、留言、分享
往期推荐
[ ABAP 选择屏幕-展开/折叠屏幕元素
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247492011&idx=1&sn=dfbffbc946959c6339193a2323407f9f&chksm=cf0a3545f87dbc53268496f126c19668ae6ea23516c0bd2ae7200e682f8a79cc8333f90a953c&scene=21#wechat_redirect)
[ ABAP 选择屏幕-搜索帮助
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247491935&idx=1&sn=2eddfb9d5dce509facd77c83cbdac89f&chksm=cf0a35b1f87dbca7175e5e95e18721e563750b82cb6c98ff6707e971c8225ad8737d016e473f&scene=21#wechat_redirect)
[ ABAP 选择屏幕-下拉列表
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247491445&idx=1&sn=dcd5be40650ec9b9dbf714f1cfaacf2a&chksm=cf09cb9bf87e428d7e84c7b89d6543a74413760bf53806021b0ff89cb2968374bcdb712d3111&scene=21#wechat_redirect)
点个 在看 你最好看
