ABAP步循环

一、在界面中循环输出行数据，屏幕直接画出行数，需要计算翻页，一旦界面行数变动，则需要更改代码，所以引入步循环

二、步循环

首先在界面上画出要展示的内容

注意，在步循环中，文本的名称和输入框的名称不能相同，否则报错

选中显示的框，定义步循环，发现一行框变成了两行

通过下拉框，可以随意展示多行数据

定义翻页按钮

在屏幕输入输出流中加入步循环代码

参考代码如下

"-----------------------------@斌将军-----------------------------
TYPES: BEGIN OF ty_makt,
         matnr TYPE makt-matnr,
         maktx TYPE makt-maktx,
       END OF ty_makt.

DATA:gt_makt TYPE TABLE OF ty_makt,
     gs_makt TYPE ty_makt.

DATA:gv_line       TYPE i, "当前行
     gv_lines      TYPE i, "
     gv_row        TYPE i, "总行数
     gv_page_lines TYPE i.
*     gv_limit      TYPE i.

DATA:ok_code TYPE sy-ucomm,
     save_ok TYPE sy-ucomm.

START-OF-SELECTION.

  SELECT
    matnr"物料号
    spras"语言
    maktx"物料描述
  FROM makt
  INTO CORRESPONDING FIELDS OF TABLE gt_makt
  WHERE matnr >= '000000000000000001' AND matnr <= '000000000000004422'.

  DESCRIBE TABLE gt_makt LINES gv_row.
  CALL SCREEN 100.
*&---------------------------------------------------------------------*
*&      Module  READ_DATA  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE read_data OUTPUT.
  gv_page_lines = sy-loopc.
  gv_lines = sy-stepl + gv_line.
  READ TABLE gt_makt INTO gs_makt INDEX gv_lines.
ENDMODULE.                 " READ_DATA  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  MODIFY_DATA  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE modify_data INPUT.
  gv_lines = sy-stepl + gv_line.
  MODIFY gt_makt FROM gs_makt INDEX gv_lines.
ENDMODULE.                 " MODIFY_DATA  INPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMM  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_comm INPUT.
  DATA:lv_count TYPE i.
  save_ok = ok_code.
  CLEAR ok_code.
  CASE save_ok.
    WHEN 'PREV_LINE'.
      gv_line = gv_line - 1.
      IF gv_line < 0.
        gv_line = 0.
      ENDIF.
    WHEN 'PREV_PAGE'.
      gv_line = gv_line - gv_page_lines.
      IF gv_line < 0.
        gv_line = 0.
      ENDIF.
    WHEN 'FIRST_PAGE'.
      gv_line = 0.
    WHEN 'NEXT_LINE'.
*      CLEAR gv_limit.
*      gv_limit = gv_row - gv_line.
*      IF gv_limit > gv_page_lines.
      IF gv_line + 1 < gv_row."如果后边已经没有了，就不能再翻页
        gv_line = gv_line + 1.
      ENDIF.
*      ENDIF.
    WHEN 'NEXT_PAGE'.
*      CLEAR gv_limit.
*      gv_limit = gv_row - gv_line - gv_page_lines.
*      IF gv_limit > gv_page_lines.
      IF gv_line + gv_page_lines < gv_row."如果后边已经没有了，就不能再翻页
        gv_line = gv_line + gv_page_lines.
      ENDIF.
*      ELSE.
*        gv_line = gv_row - gv_page_lines.
*      ENDIF.
    WHEN 'LAST_PAGE'.
*      gv_line = gv_row - gv_page_lines.
      IF gv_page_lines <> 0.
        gv_line = ( gv_row / gv_page_lines ) * 10.
      ENDIF.

    WHEN 'CANCEL'.
      LEAVE PROGRAM.
    WHEN OTHERS.

  ENDCASE.
ENDMODULE.                 " USER_COMM  INPUT

"-----------------------------@斌将军-----------------------------

定期更文，欢迎关注

 

TRANSLATE with x

English

Arabic	Hebrew	Polish
Bulgarian	Hindi	Portuguese
Catalan	Hmong Daw	Romanian
Chinese Simplified	Hungarian	Russian
Chinese Traditional	Indonesian	Slovak
Czech	Italian	Slovenian
Danish	Japanese	Spanish
Dutch	Klingon	Swedish
English	Korean	Thai
Estonian	Latvian	Turkish
Finnish	Lithuanian	Ukrainian
French	Malay	Urdu
German	Maltese	Vietnamese
Greek	Norwegian	Welsh
Haitian Creole	Persian

 

TRANSLATE with

COPY THE URL BELOW

Back

EMBED THE SNIPPET BELOW IN YOUR SITE

Enable collaborative features and customize widget: Bing Webmaster Portal

Back

 

 

此页面的语言为英语

 

翻译为中文（简体）

 

 

 

 

• 中文（简体）
• 中文（繁体）
• 丹麦语
• 乌克兰语
• 乌尔都语
• 亚美尼亚语
• 俄语
• 保加利亚语
• 克罗地亚语
• 冰岛语
• 加泰罗尼亚语
• 匈牙利语
• 卡纳达语
• 印地语
• 印尼语
• 古吉拉特语
• 哈萨克语
• 土耳其语
• 威尔士语
• 孟加拉语
• 尼泊尔语
• 布尔语(南非荷兰语)
• 希伯来语
• 希腊语
• 库尔德语
• 德语
• 意大利语
• 拉脱维亚语
• 挪威语
• 捷克语
• 斯洛伐克语
• 斯洛文尼亚语
• 旁遮普语
• 日语
• 普什图语
• 毛利语
• 法语
• 波兰语
• 波斯语
• 泰卢固语
• 泰米尔语
• 泰语
• 海地克里奥尔语
• 爱沙尼亚语
• 瑞典语
• 立陶宛语
• 缅甸语
• 罗马尼亚语
• 老挝语
• 芬兰语
• 英语
• 荷兰语
• 萨摩亚语
• 葡萄牙语
• 西班牙语
• 越南语
• 阿塞拜疆语
• 阿姆哈拉语
• 阿尔巴尼亚语
• 阿拉伯语
• 韩语
• 马尔加什语
• 马拉地语
• 马拉雅拉姆语
• 马来语
• 马耳他语
• 高棉语

 

随时将英语翻译为中文（简体）PRO
一律不翻译英语
一律不翻译i.cnblogs.com