ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 进度条

进度条

原创 Linux操作系统 作者:hzq2010 时间:2011-02-28 21:22:19 0 删除 编辑
  DATA: l_percenttext(40) TYPE c,li_percent TYPE i.


    li_percent =  ( sy-tabix /  l_lines ) * 100.
    CLEAR l_percenttext.

    MOVE  sy-tabix TO l_percenttext.
    CONDENSE l_percenttext NO-GAPS.


    CONCATENATE '第' l_percenttext '  条记录' INTO
l_percenttext.
    CONDENSE l_percenttext NO-GAPS.

    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        percentage = li_percent
        text       = l_percenttext
      EXCEPTIONS
        OTHERS     = 1.

percentage 为百分比

text  为文本


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

请登录后发表评论 登录
全部评论

注册时间:2010-03-11

  • 博文量
    196
  • 访问量
    171608