ABAP 选择屏幕下拉列表
点击上方 蓝字 关注我们
Big shots are only little shots who keep shooting.
大人物都是从小人物时不断地尝试而造就。
说 明
本文介绍在ABAP 选择屏幕实现下拉列表的2种方式
1\. 通过内表实现；
2\. 通过域值实现；
效 果
代 码
PARAMETERS p_stat_t TYPE c AS LISTBOX VISIBLE LENGTH 10 .
PARAMETERS p_stat_d TYPE zestate AS LISTBOX VISIBLE LENGTH 10 .
INITIALIZATION .
%_p_stat_t_%_app_% \- text = ' 处理状态 \- 内表 ' .
%_p_stat_d_%_app_% \- text = ' 处理状态 \- 域值 ' .
AT SELECTION-SCREEN OUTPUT .
PERFORM init_drdn_list .
START-OF-SELECTION .
WRITE : p_stat_t , / , p_stat_d .
*&\---------------------------------------------------------------------*
*& Form INIT_DRDN_LIST
*&\---------------------------------------------------------------------*
• text
*----------------------------------------------------------------------*
• --> p1 text
• <\-- p2 text
*----------------------------------------------------------------------*
FORM init_drdn_list .DATA
lt_drdn_list TYPE vrm_values ,
ls_drdn_list LIKE LINE OF lt_drdn_list .
REFRESH lt_drdn_list .
CLEAR ls_drdn_list .
ls_drdn_list \- key = '1' .
ls_drdn_list \- text = ' 未处理 ' .
APPEND ls_drdn_list TO lt_drdn_list .CLEAR ls_drdn_list .
ls_drdn_list \- key = '2' .
ls_drdn_list \- text = ' 处理中 ' .
APPEND ls_drdn_list TO lt_drdn_list .CLEAR ls_drdn_list .
ls_drdn_list \- key = '3' .
ls_drdn_list \- text = ' 已处理 ' .
APPEND ls_drdn_list TO lt_drdn_list .CALL FUNCTION 'VRM_SET_VALUES'EXPORTING
id = 'P_STAT_T'
values = lt_drdn_listEXCEPTIONS
id_illegal_name = 1
OTHERS = 2 .
IF sy \- subrc <> 0 .• Implement suitable error handling here
ENDIF .
ENDFORM .以上是今日分享，希望对你有所帮助~~~
欢迎点赞、留言、分享
往期推荐
[ 编辑器书签功能
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247490249&idx=1&sn=8484955e9be056dee8a0c3f152dfb797&chksm=cf09ce27f87e47310db465d10241a736e922f914cb5cfeb74ba0e3d99232af52e7a818a928b6&scene=21#wechat_redirect)
[ 编辑器自定义字体和颜色
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247490032&idx=1&sn=3576b0e8dd87184ff1883489747d459e&chksm=cf09cd1ef87e44085c37b24e0044e08f857beb425cb2d53d7af3b1e4eec7d003ce587bf56271&scene=21#wechat_redirect)
[ 代码片段保存
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247488080&idx=1&sn=388ddf805efd47fb9df7a663bcafe375&chksm=cf09c6bef87e4fa82459a5ca6b47e63a436db0dc44c3298bb3af7b6f6856744f1ad535fa38e6&scene=21#wechat_redirect)
点个 在看 你最好看
