ABAP动态内表的使用.docVIP

动态内表的创建和使用主要有以下几点： 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.“lvc_t_fact的工作区。 ②通过lvc_t_fact构建动态内表的列： FORM setstructrue USING value(p_fname) TYPE char6 value(p_col) TYPE int4 value(p_tab) TYPE char10 value(p_fld) TYPE char6. wa_structure-fieldname = p_fname. 列名 wa_structure-col_pos = p_col.“列的顺序 wa_structure-ref_table = p_tab.”参照表 wa_structure-ref_field = p_fld.“参照字段 APPEND wa_structure TO it_structure.ENDFORM. setstructrue ③通过lvc_t_fact构建创建动态内表给dy_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.ENDFORM. CREATE_DYNAMIC_TABLE ④给动态内表赋值： FORM setdata . DATA:wa_new_line TYPE REF TO data. DATA lv_tol TYPE wertv12. CREATE DATA wa_new_line LIKE LINE OF dyn_table. ASSIGN wa_new_line-* TO dyn_wa.”让dyn_wa代表指向动态内表的工作区 LOOP AT gt_coep2. CLEAR dyn_wa. READ TABLE it_structure INTO wa_structure INDEX 4.“获取it_structure的第四行，即动态内表的第四列 ASSIGN COMPONENT wa_structure-fieldname OF STRUCTURE dyn_wa TO dyn_field.”当dyn_field指向工作区中的第四个字段 PERFORM removezero USING gt_coep2-kstar. dyn_field = gt_coep2-kstar.“通过给field-symbol赋值来达到给工作区中第四个字段赋值的作用。 PERFORM addzero USING gt_coep2-kstar. READ TABLE it_structure INTO wa_structure INDEX 5. ASSIGN COMPONENT wa_structure-fieldname OF STRUCTURE dyn