ABAP动态内表使用的例子 (6)

wa_alv_field-fieldname = 'DESCRIPTION'. wa_alv_field-seltext_m = 'DESCRIPTION'. APPEND wa_alv_field TO lit_fcat. wa_alv_field-col_pos = 4. wa_alv_field-fieldname = 'MM#'. wa_alv_field-seltext_m = 'MM#'. wa_alv_field-no_zero = 'X'. APPEND wa_alv_field TO lit_fcat. LOOP AT it_month INTO wa_month. wa_alv_field-col_pos = l_colpos.

wa_alv_field-fieldname = wa_month-pedtr. wa_alv_field-seltext_m = wa_month-pedtr. APPEND wa_alv_field TO lit_fcat. l_colpos = l_colpos + 1. ENDLOOP.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' 关键技巧:

1， 创建动态内表： a, 动态内表的结构的定义.

动态内表表结构的定义必须使用表结构与 table type: lvc_t_fcat一样的内表. 一般情况下，我们都内表的所有列定义成字符型. b, 根据表结构生成内表.

系统提供了一个标准的method来产生动态表，使用方法如下: 2， 动态内表的赋值： a, 获取指定的字段 b, 给指定的字段赋值 3， 读取动态内表的值： a, 获取指定的字段 b, 读取指定的字段值

*&---------------------------------------------------------------------* *& Report YDYN_TEST

*&---------------------------------------------------------------------* REPORT YDYN_TEST.

FIELD-SYMBOLS: TYPE STANDARD TABLE, ,

.

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. START-OF-SELECTION.

PERFORM CREATE_STRUCTURE.\定义内表的结构

PERFORM CREATE_DYNAMIC_TABLE.\按照定义的内表结构，产生一个内表 PERFORM WRITE_DATA_TO_DYNTABLE.\向动态内表中写数

PERFORM OUTPUT_DYNTABLE_DATA.\从动态内表中取数，并写到屏幕 *&---------------------------------------------------------------------* *& Form CREATE_STRUCTURE

*----------------------------------------------------------------------* FORM CREATE_STRUCTURE.

WA_STRUCTURE-FIELDNAME = 'COL1'.\第列名 WA_STRUCTURE-COL_POS = 1. \表示第三列 --- WA_STRUCTURE-INTTYPE = 'C'. \数据类型 WA_STRUCTURE-INTLEN = 6. \长度

APPEND WA_STRUCTURE TO IT_STRUCTURE. WA_STRUCTURE-FIELDNAME = 'COL2'.\第 列名 WA_STRUCTURE-COL_POS = 2. \表示第三列 --- WA_STRUCTURE-INTTYPE = 'C'. \数据类型 WA_STRUCTURE-INTLEN = 6. \长度 APPEND WA_STRUCTURE TO IT_STRUCTURE. WA_STRUCTURE-FIELDNAME = 'COL3'.\第三列名 WA_STRUCTURE-COL_POS = 3. \表示第三列 --- WA_STRUCTURE-INTTYPE = 'C'. \数据类型 WA_STRUCTURE-INTLEN = 6. \长度 APPEND WA_STRUCTURE TO IT_STRUCTURE. ENDFORM. \*&---------------------------------------------------------------------* *& Form CREATE_DYNAMIC_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 . \表类型指针 指向 数据对象的内容. ENDFORM. \

*&---------------------------------------------------------------------* *& Form write_data_to_dyntable

*&---------------------------------------------------------------------* FORM WRITE_DATA_TO_DYNTABLE . DATA:WA_NEW_LINE TYPE REF TO DATA. DATA:I TYPE N. DATA:J TYPE N.

CREATE DATA WA_NEW_LINE LIKE LINE OF . *建立一个与动态内表结构相同的数据对象，且数据对象为是一个结构 ASSIGN WA_NEW_LINE->* TO .\用指针指向该结构 DO 3 TIMES. I = I + 1.

搜索“diyifanwen.net”或“第一范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，第一范文网，提供最新工程科技ABAP动态内表使用的例子 (6)全文阅读和word下载服务。