**----------------------------------------------------

** 用Hide 技术从列表中读取行

**----------------------------------------------------

TABLES SPFLI.

 DATA : SELA(1) TYPE C,
        NUM1 TYPE I.

 START-OF-SELECTION.
 SKIP.

 ULINE AT /(95).

  WRITE:/ sy-vline,' ',sy-vline, (15) 'CARRID', sy-vline, (15) 'CONNID',
sy-vline, (15) 'Country',sy-vline,(15) 'CityFrom',sy-vline,(15)
'AIRFROM',sy-vline.

 ULINE AT /(95).

 SELECT * FROM SPFLI.
  WRITE :/ sy-vline,SELA AS Checkbox,sy-vline,(15)  SPFLI-Carrid,
sy-vline
, (15) SPFLI-CONNID, sy-vline,(15)  SPFLI-COUNTRYTO,sy-vline,(15)
SPFLI-CITYFROM, sy-vline,(15) SPFLI-AIRPFROM,sy-vline.

HIDE : SPFLI-CARRID,SPFLI-CONNID,SPFLI-COUNTRYTO, SPFLI-CITYFROM,
SPFLI-AIRPFROM.

ULINE AT /(95).

HIDE: SELA.

ENDSELECT.

END-OF-SELECTION.
 
 Num1 = sy-linno - 1.

 AT LINE-SELECTION.
  IF sy-lsind = 1.
   Do NUM1 Times.
    READ Line sy-index FIELD VALUE SELA.
     IF SELA = 'X'.
      WRITE :/ SPFLI-CARRID,SPFLI-CONNID, SPFLI-COUNTRYTO,
      SPFLI-CITYFROM, SPFLI-AIRPFROM.
     ENDIF.
   ENDDO.
  ENDIF.