SAP ABAP OO ALV选中行，变为选中复选框

DATA: lt_saleorder LIKE TABLE OF GW_ALV_TOP,
        lw_saleorder LIKE GW_ALV_TOP,
        lt_selrows   TYPE lvc_t_row,
        lw_selrow    TYPE lvc_s_row.
  gr_grid_top->get_selected_rows(
    IMPORTING
      et_index_rows = lt_selrows
      ).
  IF lt_selrows[] IS INITIAL.
    MESSAGE e000(zabap) WITH '请至少选择一行'.
  ENDIF.
  LOOP AT pt_saleorder INTO lw_saleorder.
    lw_saleorder-box = ''.
    MODIFY pt_saleorder FROM lw_saleorder.
  ENDLOOP.
  LOOP AT lt_selrows INTO lw_selrow.
    READ TABLE pt_saleorder INTO lw_saleorder INDEX lw_selrow-index.
    IF sy-subrc = 0.
      lw_saleorder-box = 'X'.
      MODIFY pt_saleorder FROM lw_saleorder INDEX lw_selrow-index.
    ENDIF.
  ENDLOOP.