ABAP——动态排序内表

感谢我亲爱的凉总轩总教会我，凉总轩总赛高

直接上代码

*&---------------------------------------------------------------------*
*& Report ZPPRTEST
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zpprtest.

TYPES: BEGIN OF ty_po,
         aufnr TYPE afko-aufnr,
         gstrp TYPE afko-gstrp,
         gamng TYPE afko-gamng,
       END OF ty_po.

DATA: lt_po   TYPE TABLE OF ty_po,
      lt_sort TYPE abap_sortorder_tab,
      ls_sort LIKE LINE OF lt_sort.

ls_sort-name = 'gstrp'.  "栏位名
ls_sort-astext = ''.     "As Text：猜测是转换成文本类型来排序
ls_sort-descending = ''. "空：升序、X：降序
APPEND ls_sort TO lt_sort.
CLEAR ls_sort.

ls_sort-name = 'gamng'.  "栏位名
ls_sort-astext = ''.     "As Text：猜测是转换成文本类型来排序
ls_sort-descending = 'X'."空：升序、X：降序
APPEND ls_sort TO lt_sort.
CLEAR ls_sort.

IF lt_sort IS NOT INITIAL.
  SORT lt_po BY (lt_sort).
ENDIF.