ABAP 选择屏幕显示隐藏屏幕元素
点击上方 蓝字 关注我们
Being alone in a strange place as a visitor,
more so I miss my dear ones on festivals.
独在异乡为异客，每逢佳节倍思亲。
说 明
本文介绍ABAP如何在选择屏幕分组显示/隐藏屏幕元素， 这里作为一个常用程序模版分享给大家：
1、新增单选组，设置User-Command触发事件；
2、PBO事件中， 按 组动态控制屏幕元素显示、隐藏；
效 果
代 码
TABLES spfli .
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE f1 .PARAMETERS
r_rb1 RADIOBUTTON GROUP gr1 USER-COMMAND sel DEFAULT 'X' ,
r_rb2 RADIOBUTTON GROUP gr1 .
SELECTION-SCREEN END OF BLOCK b1 .SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE f2 .
SELECT-OPTIONS :s_carrid FOR spfli \- carrid MODIF ID m1 , " 航线代码
s_connid FOR spfli \- connid MODIF ID m1 . " 航班编号
SELECT-OPTIONS :s_countr FOR spfli \- countryfr MODIF ID m2 , " 起飞国家
s_counto FOR spfli \- countryto MODIF ID m2 , " 到达国家
s_cityfr FOR spfli \- cityfrom MODIF ID m2 , " 起飞城市
s_cityto FOR spfli \- cityto MODIF ID m2 . " 到达城市
SELECTION-SCREEN END OF BLOCK b2 .INITIALIZATION .
f1 = ' 选项功能 ' .
f2 = ' 筛选字段 ' .
%_r_rb1_%_app_% \- text = ' 功能 1' .
%_r_rb2_%_app_% \- text = ' 功能 2' .
%_s_carrid_%_app_% \- text = ' 航线代码 ' .
%_s_connid_%_app_% \- text = ' 航班编号 ' .
%_s_countr_%_app_% \- text = ' 起飞国家 ' .
%_s_counto_%_app_% \- text = ' 到达国家 ' .
%_s_cityfr_%_app_% \- text = ' 起飞城市 ' .
%_s_cityto_%_app_% \- text = ' 到达城市 ' .
AT SELECTION-SCREEN OUTPUT .
LOOP AT SCREEN .CASE 'X' .
WHEN r_rb1 .
IF screen \- group1 = 'M2' .screen \- active = '0' .
MODIFY SCREEN .
ENDIF .WHEN r_rb2 .
IF screen \- group1 = 'M1' .screen \- active = '0' .
MODIFY SCREEN .
ENDIF .WHEN OTHERS .
ENDCASE .
ENDLOOP .以上是今日分享，希望对你有所帮助~~~
欢迎点赞、留言、分享
往期推荐
[ 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=2247492081&idx=1&sn=f5d1a392a99b079b7fbc28a409c0e615&chksm=cf0a351ff87dbc099263f9003abaa1946c31c846808c3674faef4dea18d64334a8675a4647b9&scene=21#wechat_redirect)
[ ABAP 选择屏幕-隐藏执行按钮
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247492277&idx=1&sn=3df11861fee65ae0492a4810cbe8d76a&chksm=cf0a365bf87dbf4dec94c72b48c67ac2265b548792140f3fc4e34b9074298ef7cf3f08ee45e3&scene=21#wechat_redirect)
[ ABAP 选择屏幕-添加新按钮
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247492356&idx=1&sn=840c23e0bfb45a0e7829e13ed67e3da2&chksm=cf0a37eaf87dbefc2e55429b5868fb48bb32c814adc5550b7abd7f3f733d619e734a2b485adc&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)
点个 在看 你最好看
