ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 在选择屏幕上,显示Combox

在选择屏幕上,显示Combox

原创 Linux操作系统 作者:AntiDesert 时间:2012-05-31 15:08:43 0 删除 编辑
*****转自http://blog.csdn.net/leechirslcc/article/details/4808294
**非ABAP字典中的字段
TYPE-POOLS VRM.
DATA: name TYPE vrm_id,
       list TYPE vrm_values,
       value LIKE LINE OF list,
       g_fnsel(20)  TYPE c,
       G_COLNO   TYPE I.
PARAMETERS : p_contyp LIKE g_fnsel AS LISTBOX VISIBLE      LENGTH 12
DEFAULT 'A' OBLIGATORY .
AT SELECTION-SCREEN OUTPUT.
PERFORM. sub_init_p_contyp_f4help .
FORM. sub_init_p_contyp_f4help .
   REFRESH list.
   DEFINE fill_list.
   value-key = &1.  "个就是变量P_LIST的值
   value-text = &2. "这个是text
   append value to list.
   END-OF-DEFINITION.
   fill_list 'A' 'A 显示屏幕'.
   fill_list 'N' 'N 后台处理'.
   fill_list 'E' 'E 显示错误'.
   CALL FUNCTION 'VRM_SET_VALUES'
     EXPORTING
       id     = 'P_CONTYP'  " PARAMETERS's Name
       values = list.
 ENDFORM.

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/26168649/viewspace-731563/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 实现交互alv
请登录后发表评论 登录
全部评论

注册时间:2011-08-14

  • 博文量
    10
  • 访问量
    11120