ABAP中动态内表的使用
来源:互联网 发布:中国税务局网络大学 编辑:程序博客网 时间:2024/04/30 13:16
顾名思义,动态表的列是可以根据数据的变化而变化的,会使报表显示更简洁漂亮。
以下是实现方法。
-------------------------------------------
1, 创建动态内表:
a,动态内表的结构的定义.
动态内表表结构的定义必须使用表结构与 table type: lvc_t_fcat一样的内表.
一般情况下,我们都内表的所有列定义成字符型.
b,根据表结构生成内表.
系统提供了一个标准的method来产生动态表,使用方法如下:
2, 动态内表的赋值:
a,获取指定的字段
b,给指定的字段赋值
3, 读取动态内表的值:
a,获取指定的字段
b,读取指定的字段值
以下是一个具体的例子:
-----------------------------------------------------------REPORT zdyn_test.FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE, <dyn_wa>, <dyn_field>.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. " create_structure*&---------------------------------------------------------------------**& 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 <dyn_table>. " 用表类型指针 <dyn_table> 指向 数据对象的内容.ENDFORM. " create_dynamic_table*&---------------------------------------------------------------------**& 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 <dyn_table>. " 建立一个与动态内表结构相同的数据对象,且数据对象为是一个结构 ASSIGN wa_new_line->* TO <dyn_wa>. " 用<dyn_wa>指针指向该结构 DO 3 TIMES. i = i + 1. CLEAR j. LOOP AT it_structure INTO wa_structure. j = j + 1. ASSIGN COMPONENT wa_structure-fieldname OF STRUCTURE <dyn_wa> TO <dyn_field>. " 用指针 <dyn_field>指向工作区<dyn_wa>中的一个字段,字段名为wa_structure-fieldname. CONCATENATE i j INTO <dyn_field>. " 给指针指向的字段赋值 ENDLOOP. APPEND <dyn_wa> TO <dyn_table>. ENDDO.ENDFORM. " write_data_to_dyntable*&---------------------------------------------------------------------**& Form output_dyntable_data*&---------------------------------------------------------------------*FORM output_dyntable_data . LOOP AT it_structure INTO wa_structure. WRITE: wa_structure-fieldname(5). ENDLOOP. LOOP AT <dyn_table> INTO <dyn_wa>. WRITE: / . LOOP AT it_structure INTO wa_structure. ASSIGN COMPONENT wa_structure-fieldname OF STRUCTURE <dyn_wa> TO <dyn_field>. " 用指针 <dyn_field>指向工作区<dyn_wa>中的一个字段,字段名为wa_structure-fieldname. WRITE: <dyn_field>. ENDLOOP. ENDLOOP.ENDFORM. " output_dyntable_data
- ABAP中动态内表的使用
- ABAP中动态内表使用
- ABAP中创建动态内表的三种方法
- sap-ABAP动态内表使用的例子
- ABAP动态内表
- ABAP动态内表
- ABAP-动态内表
- 动态ABAP内表
- ABAP 创建动态内表
- ABAP 动态创建内表
- ABAP动态内表ALV
- ABAP开发中动态内表运用-EXAM
- Sap中动态内表的使用
- Sap中动态内表的使用
- ABAP 动态生成内表的几种方法
- ABAP 动态生成内表的几种方法
- ABAP 动态生成内表的几种方法
- ABAP动态生成内表的三种方法
- vs2008\drivers\opengl_2.h.c_opengl基本功能介绍+示例
- Android - API - android.media.SoundPool (专用于播放音效)
- dom4j (1) 解析
- 用测试程序分析类的内存布局2
- 修改表结构
- ABAP中动态内表的使用
- GSL计算逆矩阵
- 模拟大整数的乘法
- 前置++为什么比后置++效率高
- C遍历文件夹下文件
- 低功耗设计中电容对系统的影响(—)
- GSL计算矩阵的行列式值
- MTK Headset 实现音乐按键功能
- JQuery学习笔记