alv中,在条件过滤后,全选或取消全选时,会影响到所有数据(不仅仅过滤后的数据)的解决方法

alv展示数据时,有时需要全选或取消全选,对数据进行操作,一般的做法,在内表中给标志列赋值,但是,如果根据条件过滤数据后,全选或取消全选时,会影响到所有数据(不仅仅过滤后的数据),以下是解决方法:

*---------------------------------------------------------------------*
* FORM USER_COMMAND *
*---------------------------------------------------------------------*
FORM user_command USING rf_ucomm LIKE sy-ucomm
                          rs TYPE slis_selfield .           "#EC CALLED
  DATA:  wl_answer  TYPE c.
  DATAlr_grid TYPE REF TO cl_gui_alv_grid.
  DATA et_filtered    TYPE lvc_t_fidx.
  DATA:lv_tabix           TYPE sy-tabix.


  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid lr_grid.
  CALL METHOD lr_grid->check_changed_data.
  DATA:p_count TYPE i.
  rs-refresh 'X'.  "自动刷新


  CLEAR et_filtered.
  CALL METHOD lr_grid->get_filtered_entries
    IMPORTING
      et_filtered_entries et_filtered.

  CASE rf_ucomm.
    WHEN '&SALL'.
      LOOP AT result.
        lv_tabix sy-tabix.
        READ TABLE et_filtered WITH KEY table_line lv_tabix TRANSPORTING NO FIELDS.
        IF sy-subrc NE 0.
          result-chk 'X'.
          MODIFY result.
          CLEAR result.
        ENDIF.
      ENDLOOP.
    WHEN '&SCLL'.
      LOOP AT result.
        lv_tabix sy-tabix.
        READ TABLE et_filtered WITH KEY table_line lv_tabix TRANSPORTING NO FIELDS.
        IF sy-subrc NE 0.
          result-chk ''.
          MODIFY result.
          CLEAR result.
        ENDIF.
      ENDLOOP.

    WHEN '&FX11'.
      CLEAR wl_answer.
      CALL FUNCTION 'POPUP_TO_CONFIRM'
        EXPORTING
          text_question         '确定要删除所选信息吗?' "确定要删除吗?
          icon_button_1         '是' "text-035 "是
          icon_button_2         '否' "text-036 "否
          default_button        '2'
          display_cancel_button ''
          start_column          25
          start_row             6
        IMPORTING
          answer                wl_answer
        EXCEPTIONS
          text_not_found        1
          OTHERS                2.

      IF wl_answer '1'.
        CLEAR p_count.
        LOOP AT result WHERE chk 'X'.
          p_count p_count + 1.
        ENDLOOP.
        IF p_count <= 0.
          MESSAGE '请选择要删除的数据!' TYPE   'E'.
          STOP.
        ENDIF.

        PERFORM frm_del.

      ENDIF.
  ENDCASE.

  rs-refresh 'X'.
ENDFORM" USER_COMMAND

  • 1
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ChampaignWolf

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值