ALV最后一行加合计(笨方法)计算好放到最后一行

type-pools:slis.
TYPES:BEGIN OF ty_itab,
  chk,
  carrid TYPE spfli-carrid,
  connid TYPE spfli-connid,
  distance TYPE spfli-distance,
  END OF ty_itab.

DATA:lt_itab TYPE TABLE OF ty_itab.
DATA:ls_itab TYPE ty_itab.

DATA:nn TYPE spfli-distance.

DATA:ws_fieldcat        TYPE slis_t_fieldcat_alv WITH HEADER LINE,
     ws_fieldgroups_tab TYPE slis_t_sp_group_alv,
     ws_layout          TYPE slis_layout_alv,
     ws_sortfields_tab  TYPE slis_t_sortinfo_alv WITH HEADER LINE,
     ws_events          TYPE slis_t_event,
     l_user_command     TYPE slis_formname,
     i_event TYPE slis_t_event..
FIELD-SYMBOLS:<fs> TYPE ty_itab.

DATA:i_sort TYPE  slis_t_sortinfo_alv,
      wa_sort TYPE slis_sortinfo_alv.



START-OF-SELECTION.
CLEAR nn.
  SELECT carrid connid distance
    FROM spfli
    INto CORRESPONDING FIELDS OF TABLE lt_itab.

  LOOP AT lt_itab ASSIGNING <fs>.

    nn nn + <fs>-distance.
  ENDLOOP.

  ls_itab-carrid '合计'.
  ls_itab-distance nn.
  APPEND ls_itab to lt_itab.
  CLEAR ls_itab.

  DEFINE  hout.
    ws_fieldcat-fieldname     &1.
    ws_fieldcat-seltext_m     &2.
    ws_fieldcat-edit          &3.
    ws_fieldcat-quantity      &4.
    ws_fieldcat-ref_tabname   &5.
    ws_fieldcat-ref_fieldname &6.
    ws_fieldcat-no_zero       &7.
    ws_fieldcat-do_sum        &8.

    if &1 'CHK'.
      ws_fieldcat-checkbox      'X'.
    endif.

    append ws_fieldcat.
    clear ws_fieldcat.
  END-OF-DEFINITION.

  hout:
    'CARRID'  '航班' '' '' '' '' '' '' ,
    'CONNID'  '航线' '' '' '' '' '' '' ,
    'DISTANCE' '距离' '' '' '' '' '' '' .



  ws_layout-zebra             'X'.
  ws_layout-get_selinfos      'X'.
  ws_layout-colwidth_optimize 'X'.
  ws_layout-detail_popup      'X'.
  ws_layout-box_fieldname      'CHK'.


  DATA:g_reid like sy-repid.
  g_reid sy-repid.


  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       g_reid
*     i_callback_top_of_page   = 'SUB_ALV_TOP_OF_PAGE'
      is_layout                ws_layout
      it_fieldcat              ws_fieldcat[]
*     it_events                = i_event
*     I_CALLBACK_USER_COMMAND  = L_USER_COMMAND
*     I_CALLBACK_PF_STATUS_SET = 'FRM_SET_STATUS'
*     IT_SPECIAL_GROUPS        = WS_FIELDGROUPS_TAB[]
      it_sort                  i_sort
*     I_GRID_SETTINGS          = GS_SETTINGS
      i_default                'X'
      i_save                   'A'
    TABLES
      t_outtab                 lt_itab
    EXCEPTIONS
      program_error            1
      OTHERS                   2.

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值