ABAP-内表增删改查
*&---------------------------------------------------------------------* *& Report Z10 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT z10. "定义结构体 TYPES: BEGIN OF ty_itab1, field1 TYPE char20, field2 TYPE int2, END OF ty_itab1. DATA list TYPE ty_itab1 OCCURS 0 WITH HEADER LINE. "带有表头的内表 list-field1 = 'php'. list-field2 = '10'. INSERT list into TABLE list. "增 list-field1 = 'java'. list-field2 = '20'. append list to list. list-field1 = 'asp.net'. list-field2 = '30'. append list."也可以这样子直接添加进内表 list-field1 = 'python'. list-field2 = '40'. append list to list. list-field1 = 'mysql'. list-field2 = '50'. append list to list. delete list WHERE field1 = 'asp.net'. "删除数据 delete list index 2. list-field1 = 'mysql'. list-field2 = '80'. MODIFY list from list TRANSPORTING field1 WHERE field1 = 'php'. "把php行数据修改掉 "MODIFY list FROM list index 1. READ TABLE list WITH KEY field1 = 'mysql'. "查询某个列的值是否存在 IF sy-subrc = 0. WRITE '存在mysql...'. ENDIF. LOOP at list INTO list WHERE field1 = 'mysql'. WRITE list-field1. WRITE list-field2. SKIP. ENDLOOP. BREAK-POINT.
*&---------------------------------------------------------------------* *& Report Z10 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT z10. "定义结构体 TYPES: BEGIN OF ty_itab1, field1 TYPE char20, field2 TYPE int2, END OF ty_itab1. TYPES:t_itab1 TYPE ty_itab1 OCCURS 0. "声明内表类型 TYPES:t_itab2 TYPE TABLE OF ty_itab1. "志明内表类型 DATA:itab1 TYPE TABLE OF ty_itab1 . "定义内表变量1 DATA:wa TYPE ty_itab1. DATA:wa1 TYPE ty_itab1. wa-field1 = 'ccc'. wa-field2 = 3. INSERT wa INTO TABLE itab1. wa-field1 = 'aaa'. wa-field2 = 1. INSERT wa INTO TABLE itab1. wa-field1 = 'bbb'. wa-field2 = 2. INSERT wa INTO TABLE itab1. wa-field1 = 'bbbbbb'. wa-field2 = 2. INSERT wa INTO TABLE itab1. DATA:xxx TYPE ty_itab1. READ TABLE itab1 INTO xxx WITH KEY field2 = 1. IF sy-subrc = 0. WRITE xxx-field1. WRITE xxx-field2. SKIP. ENDIF. LOOP AT itab1 INTO xxx. WRITE xxx-field1. WRITE xxx-field2. SKIP. ENDLOOP. BREAK-POINT.
post SAP-Garson
原文链接:https://www.cnblogs.com/hua900822/p/16891060.html文章来自于网络,如果侵犯了您的权益,请联系站长删除!