内表操作-insert,delete,modify,sort

*&---------------------------------------------------------------------*
*& Report  ZTEST_YHY_03
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZTEST_YHY_03.
TYPES: BEGIN OF ty_stu,
  id(8) type c,
  name(10) TYPE c,
  sex(2) TYPE c,
  END OF ty_stu.
DATA: it_stu TYPE TABLE OF ty_stu,
      wa_stu TYPE ty_stu.

"----------数据准备------

wa_stu-id = '20115944'.
wa_stu-name = '李四'.
wa_stu-sex = '男'.
APPEND wa_stu TO  it_stu.
*WRITE wa_stu."可以直接write,不过字段之间没有空格。。连在了一起。
CLEAR wa_stu.

wa_stu-id = '20115945'.
wa_stu-name = '李五'.
wa_stu-sex = '男'.
APPEND wa_stu TO  it_stu.
CLEAR wa_stu.

wa_stu-id = '20115946'.
wa_stu-name = '王六'.
wa_stu-sex = '男'.
APPEND wa_stu TO  it_stu.
CLEAR wa_stu.

wa_stu-id = '20115955'.
wa_stu-name = '王八'.
wa_stu-sex = '男'.

"index的范围只能是0<index<i+1  i为已存在记录数。当index为0时报错,index>i+1时就像什么也没做
"index=2 那么这条记录就是第二行,原来的移到第三行
INSERT wa_stu INTO it_stu INDEX 4.
CLEAR wa_stu.

*READ TABLE it_stu INTO wa_stu INDEX 1.
**WRITE wa_stu.
*wa_stu-name = 'change'.
*MODIFY it_stu FROM wa_stu INDEX 2 . 

wa_stu-id = '201159444'.
wa_stu-name = '方圆'.
wa_stu-sex = '男'.
APPEND wa_stu TO  it_stu.
CLEAR wa_stu.

*DELETE it_stu INDEX 5.

LOOP AT it_stu INTO wa_stu.
WRITE:    / wa_stu-id,
            wa_stu-name,
            wa_stu-sex.
ENDLOOP.

*SORT it_stu DESCENDING.


*  IF wa_stu-id = '20115946'.
*    WRITE: / sy-tabix,
*            wa_stu-id,
*            wa_stu-name,
*            wa_stu-sex.
*  ENDIF.
*
*ENDLOOP.


  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值