ABAP-前台进度条
【摘要】 DATA:count TYPE string. " 内表总数据条数DATA:msg TYPE string. " 显示的消息DATA:index TYPE string. " 当前处理的索引DATA:BEGIN OF gt_tab OCCURS 0, col1 TYPE string, END OF gt_tab ." 插入100条空数据DO 10000 T...
DATA:count TYPE string. " 内表总数据条数
DATA:msg TYPE string. " 显示的消息
DATA:index TYPE string. " 当前处理的索引
DATA:BEGIN OF gt_tab OCCURS 0,
col1 TYPE string,
END OF gt_tab .
" 插入100条空数据
DO 10000 TIMES.
APPEND gt_tab.
ENDDO.
DESCRIBE TABLE gt_tab LINES count.
* 进度条显示
LOOP AT gt_tab.
CLEAR:msg,index.
index = sy-tabix.
CONCATENATE '正在处理。。。' index '/' count INTO msg. " 拼接消息
index = index / count * 100. " 时钟显示的百分比
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = index " 处理的百分比
text = msg.
ENDLOOP.
【声明】本内容来自华为云开发者社区博主,不代表华为云及华为云开发者社区的观点和立场。转载时必须标注文章的来源(华为云社区)、文章链接、文章作者等基本信息,否则作者和本社区有权追究责任。如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱:
cloudbbs@huaweicloud.com
- 点赞
- 收藏
- 关注作者
作者其他文章
评论(0)