Users Dialogs: Lists

data: wa_spfli type spfli,
          wa_sflight type sflight.


start-of-selection.

* Read data for primary list and display
  select carrid connid airpfrom cityfrom airpto cityto deptime arrtime
         from spfli
         into corresponding fields of wa_spfli.

    format color col_key.
    write: / wa_spfli-carrid ,
             wa_spfli-connid .

    format color col_normal.
    write:   wa_spfli-airpfrom ,
             wa_spfli-cityfrom ,
             wa_spfli-airpto ,
             wa_spfli-cityto ,
             wa_spfli-deptime ,
             wa_spfli-arrtime .
*   Hide information
    hide: wa_spfli-carrid, wa_spfli-connid.

  endselect.

* Preparing regular line selection check
* CLEAR wa_spfli.



at line-selection.

  if sy-lsind = 1.

*   Check if regular line was selected
*   IF NOT wa_spfli IS INITIAL.

      write: text-001 color col_normal,      " Page header
             wa_spfli-carrid color col_total,
             wa_spfli-connid color col_total.
      skip.
      format color col_heading.
      write: text-003, text-004, text-005.
      skip.
      format color col_normal.

*     Select data for secondary list
      select fldate seatsmax seatsocc
             from sflight
             into corresponding fields of wa_sflight
             where  carrid = wa_spfli-carrid
              and   connid = wa_spfli-connid.
*       Creating secondary list
        write: / wa_sflight-fldate   color col_key    under text-003,
                 wa_sflight-seatsmax color col_normal under text-004,
                 wa_sflight-seatsocc color col_normal under text-005.
      endselect.

*   ENDIF.

  endif.

 AT LINE-SELECTION 可以嵌套使用 通过 sy-lisnd 来判断当前是第几层，参数传递通过 HIDE