动态内表

动态内表的创建和使用主要有以下几点：

1.动态内表的创建，首先要定义动态结构，然后再根据定义的动态结构利用系统一个标准的method：”cl_alv_table_create=>create_dynamic_table“生成动态内表。

2.动态内表的赋值，遍历动态结构，获取指定的字段，然后给指定的字段赋值。

3.动态内表的读取显示，与赋值相似，遍历动态结构，获取指定的字段，然后读取对应字段的值。

具体实现方法如下所示：

定义：

FIELD-SYMBOLS:<dyn_table> TYPE STANDARD TABLE,

<dyn_wa> TYPE ANY,

<dyn_field> TYPE ANY.

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.

实现步骤：

1.PERFORM create_structure." 定义内表的结构

FORM create_structure.

CLEAR it_structure.

DATA:l_pos TYPE i.

l_pos = 5.

wa_structure-fieldname = 'MANUFACTURER'." 第一列名

wa_structure-col_pos = 1. " 表示第1列 ---

wa_structure-ref_table = 'PLAF'. ”字段参照的内表名字

wa_structure-ref_field = 'FLIEF'. “字段参照的字段名字

APPEND wa_structure TO it_structure.

wa_structure-fieldname = 'NAME'. " 第二列名

wa_structure-col_pos = 2. " 表示第2列 ---

wa_structure-ref_table = 'lfa1'.

wa_structure-ref_field = 'NAME1'.

APPEND wa_structure TO it_structure.

wa_structure-fieldname = 'DESCRIPTION'. " 第三列名

wa_structure-col_pos = 3. " 表示第3列 ---

wa_structure-ref_table = 'MAKT'.

wa_structure-ref_field = 'MAKTX'.

APPEND wa_structure TO it_structure.

wa_structure-fieldname = 'MM#'.

wa_structure-col_pos = 4.

wa_structure-ref_table = 'MAKT'.

wa_structure-ref_field = 'MATNR'.

APPEND wa_structure TO it_structure.

"it_month是根据选择屏幕的起始时间和结束时间得到的两个日期之间的月份，以下遍历所得到的月份并写入结构。

LOOP AT it_month INTO wa_month.

wa_structure-fieldname = wa_month-pedtr.

wa_structure-col_pos = l_pos.

wa_structure-inttype = 'P'.

"wa_structure-intlen = 7.

APPEND wa_structure TO it_structure.

l_pos = l_pos + 1.

ENDLOOP.

ENDFORM. "CREATE_STRUCTURE

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

利用系统的一个标准方法根据结构生成动态内表

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> 指向数据对象的内容.

ENDFORM. " create_dynamic_table

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

FORM write_data_to_dyntable .

DATA:wa_new_line TYPE REF TO data.

DATA:l_index2 TYPE i.

CREATE DATA wa_new_line LIKE LINE OF <dyn_table>.

*建立一个与动态内表结构相同的数据对象，且数据对象为是一个结构

ASSIGN wa_new_line->* TO <dyn_wa>." 用<dyn_wa>指针指向该结构

SORT it_plaf_out BY flief matnr .

LOOP AT it_plaf_out INTO wa_plaf_out.

l_index2 = sy-tabix.

LOOP AT it_structure INTO wa_structure.

READ TABLE it_plaf_out INTO wa_plaf_out INDEX l_index2.

IF wa_structure-fieldname = 'MANUFACTURER'.

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

" 用指针<DYN_FIELD>指向工作区<DYN_WA>中的一个字段，字段名为WA_STRUCTURE-FIELDNAME.

<dyn_field> = wa_plaf_out-flief. ”给指针指向的字段赋值

ELSEIF wa_structure-fieldname = 'NAME'.

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

<dyn_field> = wa_plaf_out-name1.

ELSEIF wa_structure-fieldname = 'DESCRIPTION'.

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

<dyn_field> = wa_plaf_out-maktx.

ELSEIF wa_structure-fieldname = 'MM#'.

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

<dyn_field> = wa_plaf_out-matnr.

ELSEIF wa_structure-fieldname = wa_plaf_out-pedtr.

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

<dyn_field> = wa_plaf_out-gsmng.

ENDIF.

ENDLOOP.

AT END OF matnr.

APPEND <dyn_wa> TO <dyn_table>."将所得到的工作区的值写入内表

CLEAR <dyn_wa>.

ENDAT.

ENDLOOP.

ENDFORM. "WRITE_DATA_TO_DYNTABLE

PERFORM 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>.

**用指针<DYN_FIELD>指向工作区<DYN_WA>中的一个字段，字段名为WA_STRUCTURE-FIELDNAME.

* WRITE : <dyn_field>.

* ENDLOOP.

若要通过ALV显示的话。

利用wa_alv_field定义对应结构的ALV，然后即可显示

g_repid = sy-repid.

wa_layout-colwidth_optimize = 'X'.

wa_layout-zebra = 'X'.

" lt_layout-box_fieldname = 'SEL'.

DATA:l_colpos TYPE i.

l_colpos = 5.

" lit_fcat

wa_alv_field-col_pos = 1.

wa_alv_field-fieldname = 'MANUFACTURER'.

wa_alv_field-seltext_m = 'MANUFACTURER'.

wa_alv_field-no_zero = 'X'.