加载中…
个人资料
Lemon
Lemon
  • 博客等级:
  • 博客积分:0
  • 博客访问:204,831
  • 关注人气:38
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
相关博文
推荐博文
谁看过这篇博文
加载中…
正文 字体大小:

ABAP 屏幕下拉表实现

(2012-10-18 18:30:27)
标签:

abap

屏幕

下拉表实现

it

分类: Sap
TYPE-POOLS vrm .

"使用下列表
PARAMETERS:p_list(20) TYPE c AS LISTBOX VISIBLE LENGTH 12.

INITIALIZATION.
  "初始化下拉表
  PERFORM init_list.

*&---------------------------------------------------------------------*
*&      Form  INIT_LIST
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM init_list .
  "下拉框代码实现
  DATA :list TYPE vrm_values , "list box的值列表
        value LIKE LINE OF list ."list box的结构


  DATA:str TYPE string.
  "赋值到list内表中
  DO 10 TIMES.
    str = sy-tabix.
    CONCATENATE 'KEY' str INTO value-key.
    CONCATENATE 'TXT' str INTO value-text.
    APPEND value TO list .
  ENDDO.

  "调用函数展示
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'P_LIST'
      values = list.

ENDFORM.                    " INIT_LIST

0

阅读 评论 收藏 转载 喜欢 打印举报/Report
  • 评论加载中,请稍候...
发评论

    发评论

    以上网友发言只代表其个人观点,不代表新浪网的观点或立场。

      

    新浪BLOG意见反馈留言板 欢迎批评指正

    新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

    新浪公司 版权所有