创建动态内表示例

关键技巧：

1.创建动态内表：

a.动态内表的结构的定义

动态内表结构的定义必须使用表结构与table type:lvc_t_fcat一样的内表。

一般情况下，我们把内表的所有列定义成字符型。

b.根据表结构生成内表。

系统提供了一个标准的method来产生动态表，使用方法见代码。

 

2.动态内表的赋值

a.获取指定的字段

b.给指定的字段赋值

 

3.读取动态内表的值

a.获取指定的字段

b.读取指定的字段值

 

 

FIELD-SYMBOLS:<dyn_table> TYPE STANDARD TABLE,

               <dyn_wa>,

               <dyn_field>.

 

DATA: dy_table TYPE REF TO data,

      dy_line TYPE REF TO data,

      it_structure TYPE lvc_t_fcat,

      wa_structure TYPE lvc_s_fcat.

 

START-OF-SELECTION.

  PERFORM create_structure. "定义内表的结构

 

  PERFORM create_dynamic_table. "按照定义的内表结构，产生一个内表

 

  PERFORM write_data_to_dyntable. "向动态内表中写数

 

  PERFORM output_dyntable_data.   "从动态内表中取数，并写到屏幕

 

 

*&---------------------------------------------------------------------*

*&      Form  create_structure

*&---------------------------------------------------------------------*

*       text

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

FORM create_structure.

  wa_structure-fieldname = 'COL1'.

  wa_structure-col_pos = 1.

  wa_structure-inttype = 'C'.

  wa_structure-intlen = 6.

  APPEND wa_structure TO it_structure.

  CLEAR wa_structure.

 

  wa_structure-fieldname = 'COL2'.

  wa_structure-col_pos = 2.

  wa_structure-inttype = 'C'.

  wa_structure-intlen = 6.

  APPEND wa_structure TO it_structure.

  CLEAR wa_structure.

 

  wa_structure-fieldname = 'COL3'.

  wa_structure-col_pos = 3.

  wa_structure-inttype = 'C'.

  wa_structure-intlen = 6.

  APPEND wa_structure TO it_structure.

  CLEAR wa_structure.

 

  wa_structure-fieldname = 'COL4'.

  wa_structure-col_pos = 4.

  wa_structure-inttype = 'C'.

  wa_structure-intlen = 6.

  APPEND wa_structure TO it_structure.

  CLEAR wa_structure.

ENDFORM.                    "create_structure

 

 

*&---------------------------------------------------------------------*

*&      Form  CREATE_DYNAMIC_TABLE

*&---------------------------------------------------------------------*

*       text

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

FORM create_dynamic_table.

  CALL METHOD cl_alv_table_create=>create_dynamic_table

    EXPORTING

      it_fieldcatalog = it_structure

    IMPORTING

      ep_table        = dy_table.

 

  ASSIGN dy_table->* TO <dyn_table>."这里为什么要赋给<dyn_table>?

                                   因为下面要取其行结构，用dy_table->*是通不过语法的

                                                                                      

ENDFORM.                    "CREATE_DYNAMIC_TABLE

 

 

*&---------------------------------------------------------------------*

*&      Form  write_data_to_dyntable

*&---------------------------------------------------------------------*

*       text

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

FORM write_data_to_dyntable.

  DATA:wa_new_line TYPE REF TO data.

  DATA:i TYPE n .

  DATA:j TYPE n.

  CREATE DATA wa_new_line LIKE LINE OF <dyn_table>.

  ASSIGN wa_new_line->* TO <dyn_wa>.  "这里用<dyn_wa>是因为。

 

  DO 3 TIMES.

    i = i + 1.

    CLEAR j.

    LOOP AT it_structure INTO wa_structure.

      j = j + 1.

      "指定对象

      ASSIGN COMPONENT wa_structure-fieldname OF STRUCTURE <dyn_wa> TO <dyn_field>.

      CONCATENATE i j INTO <dyn_field>.   "给指定的对象赋值

    ENDLOOP.

    APPEND <dyn_wa> TO <dyn_table>.

  ENDDO.

ENDFORM.                    "write_data_to_dyntable

*&---------------------------------------------------------------------*

*&      Form

*&---------------------------------------------------------------------*

*       text

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

FORM output_dyntable_data.

  LOOP AT it_structure INTO wa_structure.

    WRITE: wa_structure-fieldname(5).

  ENDLOOP.

  LOOP AT <dyn_table> INTO <dyn_wa>.

    WRITE: /.

    LOOP AT it_structure INTO wa_structure.

      ASSIGN COMPONENT wa_structure-fieldname OF STRUCTURE <dyn_wa> TO <dyn_field>.

      WRITE: <dyn_field>.

    ENDLOOP.

  ENDLOOP.

ENDFORM.                    "output_dyntable_data