ABAP动态内表的使用教学提纲

1、ABAP 动 态 内 表 的 使 用精品文档动态内表的创建和使用主要有以下几点：1. 动态内表的创建，首先要定义动态结构，然后再根据定义的动态结构利用系统一个标准的 method ： ” cl_alv_table_create=create_dynamic_table生成“动态内表。2. 动态内表的赋值，遍历动态结构，获取指定的字段，然后给指定的字段赋值。3. 动态内表的读取显示，与赋值相似，遍历动态结构，获取指定的字段，然后读取对应字段的值 下面是具体的代码实例： 定义所需的系统变量FIELD-SYMBOLS : TYPE STANDARD TABLE , 动态内表 TYPE ANY , 动

2、态内表的工作区 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_fac的t 工作区。 通过 lvc_t_fact 构建动态内表的列： FORM setstructrue USING value (p_fname ) TYPE char6 value (p_col ) TYP

3、E 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 构建创建动

4、态内表给 dy_table ： FORM create_dynamic_table .CALL METHOD cl_alv_table_create = create_dynamic_table 类静态方法 EXPORTING it_fieldcatalog = it_structureIMPORTINGep_table = dy_table .ASSIGN dy_table -* TO .ENDFORM . CREATE_DYNAMIC_TABLE 给动态内表赋值：FORM setdata . DATA :wa_new_line TYPE REF TO data . DATA lv_tol

5、TYPE wertv12 .CREATE DATA wa_new_line LIKE LINE OF .ASSIGN wa_new_line -* TO . ”让 代表指向动态内表的工作区 LOOP AT gt_coep2 .CLEAR .READ TABLE it_structure INTO wa_structure INDEX 4. “获取 it_structure 的第四行，即动态内表的第四列 ASSIGN COMPONENT wa_structure -fieldname OF STRUCTURE TO . ”当 指向工作区中的第四个字段PERFORM removezero USIN

6、G gt_coep2 -kstar . = 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 TO . = gt_coep2 -txt50 .READ TABLE it_structure INTO wa_structure INDEX 6.收集于

7、网络，如有侵权请联系管理员删除精品文档ASSIGN COMPONENT wa_structure -fieldname OF STRUCTURE TO PERFORM getksttol USING gt_coep2 -kstarlv_tol . = lv_tol .LOOP AT gt_coep1 WHERE kstar = gt_coep2 - kstar .ASSIGN COMPONENT gt_coep1 -objnr6 OF STRUCTURE TO . = gt_coep1 - wkgbtr .ENDLOOP .APPEND TO . ”将工作区中的数据 append 到动态内表中

8、去 ENDLOOP .ENDFORM . 动态内表 ALV 展示时构建 fieldcatalog ，通过循环 it_structure 来实现。FORM build_fieldcat1 .DATA: lv_name TYPE string , lv_fname TYPE prctr , lv_sum , lv_key .CLEAR gt_fieldcat .LOOP AT it_structure INTO wa_structure .IF wa_structure -fieldname MARK .CLEAR lv_name .PERFORM fill_fieldcat1 USING wa_

9、structure -fieldnamewa_structure - col_pos lv_name lv_key lv_sum .ENDIF .ENDLOOP .ENDFORM . build_fieldcat1value (p_col ) value (p_txt ) value (p_key ) value (p_sum ). -tabname = . -seltext_m = p_txt . -fieldname = p_fname . -col_pos = p_col . -key = p_key . -do_sum = p_sum .FORM fill_fieldcat1 USIN

10、G value (p_fname )gs_fieldcatgs_fieldcatgs_fieldcat gs_fieldcat gs_fieldcat gs_fieldcatAPPEND gs_fieldcat TO gt_fieldcat ENDFORM . fill_fieldcat1 ALV 展示动态内表FORM excute_alv_function1 .CALL FUNCTION REUSE_ALV_GRID_DISPLAY EXPORTING i_callback_program= sy - repidi_callback_pf_status_set = SET_STATUSi_structure_name= is_layout= gs_layout_alvit_fieldcat= gt_fieldcatit_sort=