vrm

ABAP分享四 选择屏幕下拉菜单简单实现示例

二次信任 提交于 2019-11-30 20:57:07
/*--> */ /*--> */ PARAMETERS p_carri2 LIKE spfli - carrid AS LISTBOX VISIBLE LENGTH 20 USER-COMMAND lst 有一个下拉框 AS LISTBOX VISIBLE 属性 下面针对这个下拉框属性做一个简单的示例介绍。 -- -- -- -- -- -- -- -- --定义下拉框 -- -- -- -- -- -- -- -- -- -- -- -- -- -* DATA : g_vrm_id TYPE vrm_id VALUE 'P_SUB' , "绑定到一定的字段上 lt_vrm_values TYPE vrm_values , "值列 表 ls_vrm_values LIKE LINE OF lt_vrm_values . *DATA: c2 TYPE c LENGTH 2. *------------------定义下拉框---------------------------* SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE text - 001 . "定义显示框 PARAMETERS : p_sub LIKE zmtnumber -zzsub1 AS LISTBOX VISIBLE LENGTH 10 DEFAULT