[代码]基于动态内表的ALV详解编程语言

REPORT ZTEST_ALV_DYNAMIC. 
*-------------ALV 相关-------------------------- 
DATA: wa_layo TYPE lvc_s_layo. 
DATA: wa_fcat TYPE lvc_s_fcat, 
      it_fcat TYPE lvc_t_fcat. 
 
DATA  it_scol TYPE lvc_t_scol. 
 
DATA: g_grid TYPE REF TO cl_gui_alv_grid. 
 
FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE, 
               <dyn_wa>, 
               <dyn_field>. 
 
DATA: dy_table TYPE REF TO data, 
      dy_line  TYPE REF TO data. 
 
DATA: colname(10), 
      index(2). 
 
* 列数 
PARAMETERS: col TYPE i. 
 
CLEAR: it_fcat. 
* 根据条件动态生成列catalog 
DO col TIMES. 
  index = index + 1. 
  CONCATENATE 'COL' index INTO colname. 
  PERFORM frm_add_fcat USING: 
         colname 'C' '描述' '100'. 
ENDDO. 
 
* 根据it_fact生成动态表 
CALL METHOD cl_alv_table_create=>create_dynamic_table 
  EXPORTING 
    it_fieldcatalog = it_fcat 
  IMPORTING 
    ep_table        = dy_table. 
 
ASSIGN dy_table->* TO <dyn_table>. 
 
CREATE DATA dy_line LIKE LINE OF <dyn_table>. 
 
ASSIGN dy_line->* TO <dyn_wa>. 
 
* 给表字段赋值 
CLEAR: index. 
DO col TIMES. 
  index = index + 1. 
  CONCATENATE 'COL' index INTO colname. 
  ASSIGN COMPONENT colname OF STRUCTURE <dyn_wa>  TO <dyn_field>. 
  <dyn_field> = '列数据'. 
ENDDO. 
APPEND <dyn_wa> TO <dyn_table>. 
 
* 相当于给内表放入两条数据 
CLEAR: index. 
DO col TIMES. 
  index = index + 1. 
  CONCATENATE 'COL' index INTO colname. 
  ASSIGN COMPONENT colname OF STRUCTURE <dyn_wa> TO <dyn_field>. 
  <dyn_field> = '列数据'. 
ENDDO. 
APPEND <dyn_wa> TO <dyn_table>. 
 
CLEAR: wa_layo. 
wa_layo-zebra = 'X'. 
wa_layo-cwidth_opt = 'X'. 
 
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' 
  EXPORTING 
    i_callback_program = sy-repid 
    is_layout_lvc      = wa_layo 
    it_fieldcat_lvc    = it_fcat 
  TABLES 
    t_outtab           = <dyn_table> 
  EXCEPTIONS 
    program_error      = 1 
    OTHERS             = 2. 
IF sy-subrc <> 0. 
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 
  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 
ENDIF. 
 
*&---------------------------------------------------------------------* 
*&      Form  frm_add_fcat 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
*      -->VALUE1     text 
*      -->VALUE2     text 
*      -->VALUE3     text 
*      -->VALUE4     text 
*----------------------------------------------------------------------* 
FORM frm_add_fcat USING value1 value2 value3 value4. 
  wa_fcat-fieldname = value1. 
  wa_fcat-inttype = value2. 
  wa_fcat-reptext = value3. 
  wa_fcat-intlen   = value4. 
  APPEND wa_fcat TO it_fcat. 
  CLEAR: wa_fcat. 
ENDFORM.                    "frm_add_fcat