转载: ABAP动态内表操作
顾名思义,动态表的列是可以根据数据的变化而变化的,会使报表显示更简洁漂亮。
以下是实现方法。
-------------------------------------------
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 动态内表添加单元格颜色字段
*动态内表alv显示时要求某些单元格显示颜色 *wa_fldcat-datatype不能添加LVC_T_SCOL类型,在创建好内表之后,再添加颜色列. DATA: wa_fldcat TYPE lvc ...
- ABAP 动态内表 动态ALV
DATA: DY_TABLE TYPE REF TO DATA, DY_WA TYPE REF TO DATA. FIELD-SYMBOLS: <DYN_TABLE> TYPE TABLE ...
- [SAP ABAP开发技术总结]内表操作
声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将 ...
- ABAP 7.4 新语法-内嵌生命和内表操作(转)
转自:https://www.cnblogs.com/mingdashu/p/6744637.html ABAP 7.4 新语法-内嵌生命和内表操作 1.内嵌声明 2.内表操作 3.opensql ...
- 转ABAP将内表行列转换实例(动态内表) .
把内表的行列转换,网上的例子很多,但是新人想看懂,几乎很难,所以总结下我是怎么完成的. 比如:你的内表如图: 你想让内表最后展示成这样:如图: 那么完成之后会是这样: 完成这个过程,得用到动态内表.看 ...
- ABAP 7.4 新语法-内嵌生命和内表操作
1.内嵌声明 2.内表操作 3.opensql ************************************************************************ 1. ...
- ABAP 动态内标排序
动态内表怎样排序动态内表怎样排序 动态内表要排序时,因为不知道内表中的字段名字,所以不能直接用SORT table BY field1 field2... 可以使用下面的方法来实现:SORT tab ...
- ABAP语法篇2 内表操作语法
VALUE MOVE-CORRESPONDING CORRESPOING FOR REDUCE GROUP BY FILTER VALUE语法: 结构赋值 ... VALUE dtype | #( ...
- SAP ABAP: 把内表数据以excel或csv格式,通过前台或者后台的方式上传至FTP服务器
今天接到一个FTP的需求,就是每天晚上把当天某个报表的数据自动保存excel上传到FTP服务器. SAP已经有现成的FTP函数使用,可以通过函数的方式来实现,实现前先准备一些数据: User:登录FT ...
随机推荐
- #import与@class的区别
转自:http://www.cnblogs.com/jqyp/archive/2012/01/13/2321707.html 1.import会包含这个类的所有信息,包括实体变量和方法,而@class ...
- 排序命令sort
Unix和Linux自带的sort命令功能非常强大,其主要功能是对文本内容按不同的方法排序.它不仅可以按一个或多个字段排序,还可以合并文件.使用sort处理一些较大的文件时,可能处理速度会比较慢,但却 ...
- ThinkPHP中pathinfo模式与URL重写
Thinkphp中的pathinfo模式 http://serverName/appName/module/action/id/1/ pathinfo模式 在不考虑路由的情况下,第一个参数会被解析成模 ...
- demo virdata 虚拟数据
$pageCurr = I('p',1); $start = ($pageCurr-1) * self::PAGE_RECORD_SCAN; $sort = I('sor ...
- 最少javascript代码完成一个2048游戏
原生javascript代码写的2048游戏.建议在谷歌浏览器下跑.'WASD'控制方向.演示地址请移步:http://runjs.cn/detail/bp8baf8b 直接贴代码~ html: &l ...
- UIView的生命周期总结
序言: loadView.viewDidLoad.viewDidAppear.initWithNibName.awakeFromNib等经常出现在UIViewController中的方法介绍. 这些方 ...
- C语言第七节流程控制
流程控制 顺序结构:默认的流程结构.按照书写顺序执行每一条语句. 选择结构:对给定的条件进行判断,再根据判断结果来决定执行哪一段代码. 循环结构:在给定条件成立的情况下,反复执行某一段代码. ...
- C. Anya and Smartphone
C. Anya and Smartphone time limit per test 1 second memory limit per test 256 megabytes input standa ...
- TCP/IP协议原理与应用笔记23:路由选择模块 和 路由表的设计
1. 路由选择模块 和 路由表的设计 2. 路由选择算法(路由模块在路由表中查找算法) (1)用IP分组中的目的IP地址查找路由表,使用匹配表项的下一跳地址完成分组交付 (2)匹配条件: dIP &a ...
- 【开源项目13】Volley框架 以及 设置request超时时间
Volley提供了优美的框架,使android程序网络访问更容易.更快. Volley抽象实现了底层的HTTP Client库,我们不需关注HTTP Client细节,专注于写出更加漂亮.干净的RES ...