ABAP动态内表使用的简单例子

关键技巧:
1）、创建动态内表：
a、动态内表的结构的定义. 动态内表表结构的定义必须使用表结构与 table type: lvc_t_fcat一样的内表.
    一般情况下，我们都内表的所有列定义成字符型.
b、根据表结构生成内表.  系统提供了一个标准的method来产生动态表，使用方法如下:

2）、动态内表的赋值：
a、获取指定的字段
b、给指定的字段赋值

3）、读取动态内表的值：
a、获取指定的字段
b、读取指定的字段值

动态构建内表，这种方法主要用于表结构无法确定有几列，几有哪些列，尤其与信息配置有关的时候，就只能用这种方法，否则配置一变，程序就不能用了。

程序代码：

1. FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,
   
2.                <dyn_wa>,
   
3.                <dyn_field>.
   
4. 
   
5. DATA: dy_table TYPE REF TO data,
   
6.       dy_line  TYPE REF TO data,
   
7.       it_structure TYPE lvc_t_fcat,
   
8.       wa_structure TYPE lvc_s_fcat.
   
9. 
   
10. START-OF-SELECTION.
    
11.   PERFORM create_structure.        " 定义内表的结构
    
12.   PERFORM create_dynamic_table.    " 按照定义的内表结构，产生一个内表
    
13.   PERFORM write_data_to_dyntable.  " 向动态内表中写数
    
14.   PERFORM output_dyntable_data.    " 从动态内表中取数，并写到屏幕
    
15. 
    
16. *&---------------------------------------------------------------------*
    
17. *&      Form  create_structure
    
18. *&---------------------------------------------------------------------*
    
19. FORM create_structure .
    
20.   wa_structure-fieldname = 'COL1'.  " 第一列列名
    
21.   wa_structure-col_pos   = 1.       " 表示第一列 --- 可心省略，默认情况下，第一行对应到生产内表的第一列，如果指定，则按指定的列顺序生成内表
    
22.   wa_structure-inttype = 'C'.       " 数据类型
    
23.   wa_structure-intlen = 6.          " 长度
    
24.   APPEND wa_structure TO it_structure.
    
25. 
    
26.   wa_structure-fieldname = 'COL2'.  " 第二列列名
    
27.   wa_structure-col_pos   = 2.       " 表示第二列--- 可心省略，默认情况下，第一行对应到生产内表的第一列，如果指定，则按指定的列顺序生成内表
    
28.   wa_structure-inttype = 'C'.       " 数据类型
    
29.   wa_structure-intlen = 6.          " 长度
    
30.   APPEND wa_structure TO it_structure.
    
31. 
    
32.   wa_structure-fieldname = 'COL3'.  " 第三列名
    
33.   wa_structure-col_pos   = 3.       " 表示第三列 --- 可心省略，默认情况下，第一行对应到生产内表的第一列，如果指定，则按指定的列顺序生成内表
    
34.   wa_structure-inttype = 'C'.       " 数据类型
    
35.   wa_structure-intlen = 6.          " 长度
    
36.   APPEND wa_structure TO it_structure.
    
37. ENDFORM.                    " create_structure
    
38. *&---------------------------------------------------------------------*
    
39. *&      Form  create_dynamic_table
    
40. *&---------------------------------------------------------------------*
    
41. FORM create_dynamic_table .
    
42.   CALL METHOD cl_ALV_table_create=>create_dynamic_table
    
43.     EXPORTING
    
44.       it_fieldcatalog = it_structure
    
45.     IMPORTING
    
46.       ep_table        = dy_table.
    
47. 
    
48.   ASSIGN dy_table->* TO <dyn_table>.    " 用表类型指针 <dyn_table> 指向 数据对象的内容.
    
49. ENDFORM.                    " create_dynamic_table
    
50. *&---------------------------------------------------------------------*
    
51. *&      Form  write_data_to_dyntable
    
52. *&---------------------------------------------------------------------*
    
53. FORM write_data_to_dyntable .
    
54.   DATA:wa_new_line TYPE REF TO data.
    
55.   DATA:i TYPE n.
    
56.   DATA:j TYPE n.
    
57.   CREATE DATA wa_new_line LIKE LINE OF <dyn_table>.  " 建立一个与动态内表结构相同的数据对象，且数据对象为是一个结构
    
58.   ASSIGN wa_new_line->* TO <dyn_wa>.
    
59. 
    
60.   " 用<dyn_wa>指针指向该结构
    
61.   DO 3 TIMES.
    
62.     i = i + 1.
    
63.     CLEAR j.
    
64.     LOOP AT it_structure INTO wa_structure.
    
65.       j = j + 1.
    
66.       ASSIGN COMPONENT wa_structure-fieldname OF STRUCTURE <dyn_wa> TO <dyn_field>.  " 用指针 <dyn_field>指向工作区<dyn_wa>中的一个字段，字段名为wa_structure-fieldname.
    
67.       CONCATENATE i j INTO <dyn_field>.                                              " 给指针指向的字段赋值
    
68.     ENDLOOP.
    
69.     APPEND <dyn_wa> TO <dyn_table>.
    
70.   ENDDO.
    
71. ENDFORM.                    " write_data_to_dyntable
    
72. 
    
73. *&---------------------------------------------------------------------*
    
74. *&      Form  output_dyntable_data
    
75. *&---------------------------------------------------------------------*
    
76. FORM output_dyntable_data .
    
77.   LOOP AT it_structure INTO wa_structure.
    
78.     WRITE: wa_structure-fieldname(5).
    
79.   ENDLOOP.
    
80.   LOOP AT <dyn_table> INTO <dyn_wa>.
    
81.     WRITE: / .
    
82.     LOOP AT it_structure INTO wa_structure.
    
83.       ASSIGN COMPONENT wa_structure-fieldname OF STRUCTURE <dyn_wa> TO <dyn_field>.  " 用指针 <dyn_field>指向工作区<dyn_wa>中的一个字段，字段名为wa_structure-fieldname.
    
84.       WRITE: <dyn_field>.
    
85.     ENDLOOP.
    
86.   ENDLOOP.
    
87. ENDFORM.                    " output_dyntable_data

复制代码

执行结果：