转载: ABAP动态内表操作

顾名思义，动态表的列是可以根据数据的变化而变化的，会使报表显示更简洁漂亮。
以下是实现方法。
-------------------------------------------
1， 创建动态内表：
a,动态内表的结构的定义.
   动态内表表结构的定义必须使用表结构与 table type: lvc_t_fcat一样的内表.
   一般情况下，我们都内表的所有列定义成字符型.
b,根据表结构生成内表.
   系统提供了一个标准的method来产生动态表，使用方法如下:
2， 动态内表的赋值：
a,获取指定的字段
b,给指定的字段赋值
3， 读取动态内表的值：
a,获取指定的字段
b,读取指定的字段值
以下是一个具体的例子：

----------------------------------------------------------- 

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