ABAP動(dòng)態(tài)內(nèi)表的使用

1、動(dòng)態(tài)內(nèi)表的創(chuàng)建和使用主要有以下幾點(diǎn)：1. 動(dòng)態(tài)內(nèi)表的創(chuàng)建，首先要定義動(dòng)態(tài)結(jié)構(gòu)，然后再根據(jù)定義的動(dòng)態(tài)結(jié)構(gòu)利用系統(tǒng)一個(gè)標(biāo)準(zhǔn)的method：” cl_alv_table_create=>create_dynamic_table“生成動(dòng)態(tài)內(nèi)表。2. 動(dòng)態(tài)內(nèi)表的賦值，遍歷動(dòng)態(tài)結(jié)構(gòu)，獲取指定的字段，然后給指定的字段賦值。3. 動(dòng)態(tài)內(nèi)表的讀取顯示，與賦值相似，遍歷動(dòng)態(tài)結(jié)構(gòu)，獲取指定的字段，然后讀取對(duì)應(yīng)字段的值。下面是具體的代碼實(shí)例：定義所需的系統(tǒng)變量。FIELD-SYMBOLS: <dyn_table>TYPE STANDARD TABLE, " 動(dòng)態(tài)內(nèi)表<dyn_wa&g

2、t;TYPE ANY, "動(dòng)態(tài)內(nèi)表的工作區(qū)<dyn_field>TYPE ANY."指向動(dòng)態(tài)內(nèi)表工作區(qū)某一字段的指針DATA: dy_tableTYPE REF TO data ,dy_lineTYPE REF TO data ,it_structureTYPE lvc_t_fcat, ” 存儲(chǔ)動(dòng)態(tài)內(nèi)表列的內(nèi)表，其中的每一行代表動(dòng)態(tài)內(nèi)表的一列。wa_structureTYPE lvc_s_fcat. “l(fā)vc_t_fact 的工作區(qū)。通過(guò) lvc_t_fact構(gòu)建動(dòng)態(tài)內(nèi)表的列：FORMsetstructrueUSING value ( p_fname) TYPE

3、 char6value ( p_col ) TYPE int4value ( p_tab ) TYPE char10value ( 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 . “參照字段APPENDwa_structureTO it_structure.ENDFORM."setstruc

4、true通過(guò) lvc_t_fact構(gòu)建創(chuàng)建動(dòng)態(tài)內(nèi)表給 dy_table ：FORMcreate_dynamic_table.CALL METHODcl_alv_table_create=>create_dynamic_table " 類(lèi)靜態(tài)方法EXPORTINGit_fieldcatalog=it_structureIMPORTINGep_table= dy_table .ASSIGN dy_table -> * TO <dyn_table> .ENDFORM." CREATE_DYNAMIC_TABLE給動(dòng)態(tài)內(nèi)表賦值：FORMsetdata .DA

5、TA: wa_new_lineTYPE REF TO data .DATA lv_tolTYPE wertv12 .CREATE DATAwa_new_line LIKE LINE OF <dyn_table> .ASSIGN wa_new_line -> *TO <dyn_wa>. ”讓 <dyn_wa>代表指向動(dòng)態(tài)內(nèi)表的工作區(qū)LOOP AT gt_coep2 .CLEAR<dyn_wa>.READ TABLEit_structureINTO wa_structureINDEX 4. “獲取 it_structure 的第四行，即動(dòng)態(tài)內(nèi)表

6、的第四列ASSIGN COMPONENTwa_structure- fieldnameOF STRUCTURE<dyn_wa> TO <dyn_field> . ”當(dāng) <dyn_field>指向工作區(qū)中的第四個(gè)字段PERFORMremovezeroUSING gt_coep2 - kstar .<dyn_field>=gt_coep2 - kstar. “通過(guò)給 field-symbol 賦值來(lái)達(dá)到給工作區(qū)中第四個(gè)字段賦值的作用。PERFORMaddzero USING gt_coep2 - kstar .READ TABLEit_structu

7、reINTO wa_structureINDEX 5.ASSIGN COMPONENTwa_structure- fieldnameOF STRUCTURE<dyn_wa> TO <dyn_field><dyn_field>=gt_coep2 - txt50 .READ TABLEit_structureINTO wa_structureINDEX 6.ASSIGN COMPONENTwa_structure- fieldnameOF STRUCTURE<dyn_wa> TO <dyn_field>PERFORMgetksttolUS

8、ING gt_coep2 - kstarlv_tol.<dyn_field>= lv_tol.LOOP AT gt_coep1WHEREkstar= gt_coep2 - kstar .ASSIGN COMPONENTgt_coep1 - objnr6OF STRUCTURE<dyn_wa> TO <dyn_field>.<dyn_field>= gt_coep1 - wkgbtr .ENDLOOP.APPEND<dyn_wa> TO <dyn_table> . ”將工作區(qū)中的數(shù)據(jù)append到動(dòng)態(tài)內(nèi)表中去ENDLOOP.

9、ENDFORM.動(dòng)態(tài)內(nèi)表ALV展示時(shí)構(gòu)建fieldcatalog，通過(guò)循環(huán)it_structure來(lái)實(shí)現(xiàn)。FORMbuild_fieldcat1.DATA:lv_name TYPE string,lv_fnameTYPE prctr,lv_sum,lv_key.CLEAR gt_fieldcat.LOOP AT it_structureINTO wa_structure.IFwa_structure- fieldname <>'MARK'.CLEAR lv_name .PERFORMfill_fieldcat1USING wa_structurewa_structu

10、relv_namelv_keylv_sum.- fieldname- col_posENDIF.ENDLOOP.ENDFORM."build_fieldcat1FORMfill_fieldcat1USING value ( p_fname)value ( p_col )value ( p_txt )value ( p_key )value ( p_sum).gs_fieldcat- tabname = '<dyn_table>'.gs_fieldcat- seltext_m= p_txt .gs_fieldcat- fieldname= p_fname .

11、gs_fieldcat- col_pos= p_col .gs_fieldcat- key = p_key .gs_fieldcat- do_sum = p_sum.APPENDgs_fieldcatTO gt_fieldcat.ENDFORM."fill_fieldcat1 ALV展示動(dòng)態(tài)內(nèi)表FORMexcute_alv_function1 .CALL FUNCTION'REUSE_ALV_GRID_DISPLAY'EXPORTINGi_callback_program=sy- repidi_callback_pf_status_set='SET_STATUS'i_structure_name='<dyn_wa>'is_layoutit_fieldcatit_sortit_eventsT