ALV 动态行列详解编程语言

  1 *&---------------------------------------------------------------------* 
  2 *& Report  ZCHENH068 
  3 *& 
  4 *&---------------------------------------------------------------------* 
  5 *& 
  6 *& 
  7 *&---------------------------------------------------------------------* 
  8  
  9 REPORT zchenh068. 
 10 DATA: wa_layo TYPE lvc_s_layo. 
 11 DATA: wa_fcat TYPE lvc_s_fcat, 
 12       it_fcat TYPE lvc_t_fcat. 
 13  
 14 DATA  it_scol TYPE lvc_t_scol. 
 15  
 16 DATA: g_grid TYPE REF TO cl_gui_alv_grid. 
 17  
 18 FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE, 
 19                 <dyn_wa>, 
 20                 <dyn_field>. 
 21  
 22 DATA: dy_table TYPE REF TO data, 
 23       dy_line  TYPE REF TO data. 
 24  
 25 DATA: colname(10), 
 26       lv_col(2), 
 27       lv_row(2), 
 28       lv_title TYPE string. 
 29  
 30 * 列数 
 31 PARAMETERS: col TYPE i. 
 32 PARAMETERS: row TYPE i. 
 33  
 34 CLEAR: it_fcat. 
 35  
 36 * 根据条件动态生成列 
 37 DO col TIMES. 
 38   lv_col = lv_col + 1. 
 39   CONCATENATE 'COL' lv_col INTO colname. 
 40   CONCATENATE '第' lv_col '列抬头描述' INTO lv_title. 
 41   PERFORM frm_add_fcat USING: 
 42         colname 'C' lv_title '100'. 
 43 ENDDO. 
 44  
 45 * 根据it_fact生成动态表 
 46 CALL METHOD cl_alv_table_create=>create_dynamic_table 
 47   EXPORTING 
 48     it_fieldcatalog = it_fcat 
 49   IMPORTING 
 50     ep_table        = dy_table. 
 51  
 52 ASSIGN dy_table->* TO <dyn_table>. 
 53  
 54 CREATE DATA dy_line LIKE LINE OF <dyn_table>. 
 55  
 56 ASSIGN dy_line->* TO <dyn_wa>. 
 57  
 58 * 给表字段赋值 
 59  
 60 * 相当于给内表放入row行数据 
 61 DO row TIMES. 
 62 * 相当于给内表放入col列数据 
 63   CLEAR: lv_col. 
 64   lv_row = lv_row + 1. 
 65   DO col TIMES. 
 66     lv_col = lv_col + 1. 
 67     CONCATENATE 'COL' lv_col INTO colname. 
 68     ASSIGN COMPONENT colname OF STRUCTURE <dyn_wa>  TO <dyn_field>. 
 69 *    CONCATENATE '第' lv_row '行数据'  '第' lv_col '列数据' INTO  <dyn_field>. 
 70     CONCATENATE '行，列坐标：（' lv_row',' lv_col ')' INTO  <dyn_field>. 
 71   ENDDO. 
 72   APPEND <dyn_wa> TO <dyn_table>. 
 73 ENDDO. 
 74  
 75 CLEAR: wa_layo. 
 76 wa_layo-zebra = 'X'. 
 77 wa_layo-cwidth_opt = 'X'. 
 78  
 79 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' 
 80   EXPORTING 
 81     i_callback_program = sy-repid 
 82     is_layout_lvc      = wa_layo 
 83     it_fieldcat_lvc    = it_fcat 
 84   TABLES 
 85     t_outtab           = <dyn_table> 
 86   EXCEPTIONS 
 87     program_error      = 1 
 88     OTHERS             = 2. 
 89 IF sy-subrc <> 0. 
 90   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 
 91   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 
 92 ENDIF. 
 93  
 94 *&---------------------------------------------------------------------* 
 95 *&      Form  frm_add_fcat 
 96 *&---------------------------------------------------------------------* 
 97 *       text 
 98 *----------------------------------------------------------------------* 
 99 *      -->VALUE1     text 
100 *      -->VALUE2     text 
101 *      -->VALUE3     text 
102 *      -->VALUE4     text 
103 *----------------------------------------------------------------------* 
104 FORM frm_add_fcat USING value1 value2 value3 value4. 
105   wa_fcat-fieldname = value1. 
106   wa_fcat-inttype = value2. 
107   wa_fcat-reptext = value3. 
108   wa_fcat-intlen   = value4. 
109   APPEND wa_fcat TO it_fcat. 
110   CLEAR: wa_fcat. 
111 ENDFORM.                    "frm_add_fcat