ABAP 中 Table Control例子(4)

p>      ENDIF.

p>  ENDCASE.

p>ENDFORM.                    "f_page

p> 

p>*&---------------------------------------------------------------------*

p>*&      Form  f_switch

p>*&---------------------------------------------------------------------*

p>*       text

p>*----------------------------------------------------------------------*

p>FORM f_switch.

p>  DATA lwa_cols LIKE LINE OF content-cols.

p> 

p>  LOOP AT content-cols INTO lwa_cols WHERE index > 2.

p>    IF lwa_cols-screen-input = 0.

p>      lwa_cols-screen-input = 1.

p>    ELSE.

p>      lwa_cols-screen-input = 0.

p>    ENDIF.

p>    MODIFY content-cols FROM lwa_cols INDEX sy-tabix.

p>  ENDLOOP.

p>ENDFORM.                    "f_switch

p> 

p>*&---------------------------------------------------------------------*

p>*&      Form  F_SORT

p>*&---------------------------------------------------------------------*

p>*       text

p>*----------------------------------------------------------------------*

p>*      -->CODE       text

p>*----------------------------------------------------------------------*

p>FORM f_sort USING code.

p>  DATA: str1 TYPE string,

p>        str2 TYPE string,

p>        lwa_cols LIKE LINE OF content-cols.

p> 

p>  READ TABLE content-cols INTO lwa_cols WITH KEY selected = 'X'.

p> 

p>  IF sy-subrc = 0.

p>    SPLIT lwa_cols-screen-name AT '-' INTO str1 str2.

p>    IF code = 'UP'.

p>      SORT sp2 STABLE BY (str2) ASCENDING.

p>    ELSEIF code = 'DOWN'.

p>      SORT sp2 STABLE BY (str2) DESCENDING.

p>    ENDIF.

p>    lwa_cols-selected = ''.

p>    MODIFY content-cols FROM lwa_cols TRANSPORTING selected WHERE selected = 'X'.

p>  ENDIF.

p>ENDFORM.                    "F_SORT

p> 

p>*&---------------------------------------------------------------------*

p>*&      Form  f_detail

p>*&---------------------------------------------------------------------*

p>*       text

p>*----------------------------------------------------------------------*

p>FORM f_detail.

p>  READ TABLE sp2 INTO sp1 WITH KEY mask = 'X'.

p> 

p>  IF sy-subrc = 0 AND sp1-mask = 'X'.

p>    CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'

p>      EXPORTING