table control的修改/排序/删除功能实现实例

文章转自 http://blog.csdn.net/liangziyisheng/article/details/6640516

本实例仿照SAP DEMO而写 DEMO名称是：demo_dynpro_tabcont_loop_at，自动动手写一次的目的是把将该程序的注释写明白一点，希望本文对刚入门的博友在理解table control有一点帮助，依然很恶心这编辑器不能很方便的插入图片。

主程序：

*声明table control里面表控件使用的结构
TABLES demo_conn.
*声明table control
CONTROLS sflight TYPE TABLEVIEW USING SCREEN 100.
*定义control cols表的行工作区
DATA col LIKE LINE OF sflight-cols.
*定义一个整型变量用来存储内表行数
DATA fill TYPE i.
*定义内表用来填充control的table
DATA itab TYPE STANDARD TABLE OF demo_conn.
*定义OK_CODE 存储ftcode
DATA ok_code TYPE sy-ucomm.
DATA ok_save TYPE sy-ucomm.

*---------------------------------------------------------*
*Event blocks                                             *
*---------------------------------------------------------*

*start-of-selection event---------------------------------
START-OF-SELECTION.

*获取数据
  SELECT *
    FROM spfli
    INTO CORRESPONDING FIELDS OF TABLE itab.
*取得内表行数
  DESCRIBE TABLE itab LINES fill.
*初始化table control的行数
  sflight-lines = fill.

  CALL SCREEN 100.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       设置菜单 工具 栏
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
   SET PF-STATUS 'STATUS_001'.
*  SET TITLEBAR 'xxx'.

ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  MODIFY_CT  INPUT
*&---------------------------------------------------------------------*
*       更新内表
*----------------------------------------------------------------------*
MODULE modify_ct INPUT.
  MODIFY itab FROM demo_conn INDEX sflight-current_line.
ENDMODULE.                 " MODIFY_CT  INPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       处理那些按钮事件
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  ok_save = ok_code.
  CLEAR ok_code.
  CASE ok_save.
    WHEN 'CHANGE'.
*当点击修改按钮，此时要需要修改control cols的input属性（cols包含所有列相关信息）
      LOOP AT sflight-cols INTO col WHERE index GT 2.
        IF col-screen-input EQ '1'.
          col-screen-input = '0'.
          modify sflight-cols from col index sy-tabix.
        ELSEIF col-screen-input EQ '0'.
          col-screen-input = '1'.
          modify sflight-cols from col index sy-tabix.
        ELSE.
        ENDIF.
      ENDLOOP.
*当点击sort_down按钮，此时需要对内表针对选中的地列进行排序
    WHEN 'SORT_DOWN'.
      READ TABLE sflight-cols INTO col WITH KEY selected = 'X'.
      IF sy-subrc = 0.
      SORT itab BY (col-screen-name+10) DESCENDING.
      col-selected = ''.
      MODIFY  sflight-cols FROM col INDEX sy-tabix.
      ENDIF.
*当点击sort_up按钮。。。。 。。。
    WHEN 'SORT_UP'.
      READ TABLE sflight-cols INTO col WITH KEY selected = 'X'.
      IF sy-subrc = 0.
      SORT itab BY (col-screen-name+10) ASCENDING.
      col-selected = ''.
      MODIFY  sflight-cols FROM col INDEX sy-tabix.
      ENDIF.
*当点击删除按钮，此时需要更新内表
    WHEN 'DELETE'.
      READ TABLE sflight-cols INTO col WITH KEY screen-input = '1'.
      IF sy-subrc = 0.
        LOOP AT itab INTO demo_conn WHERE mark = 'X'.
          DELETE itab INDEX sy-tabix.
        ENDLOOP.
      ENDIF.
    WHEN OTHERS.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Module  READ_DATA  OUTPUT
*&---------------------------------------------------------------------*
*       读取内表数据
*----------------------------------------------------------------------*
MODULE read_data OUTPUT.
  READ TABLE itab INTO demo_conn INDEX sflight-current_line.
ENDMODULE.                 " READ_DATA  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  CANCEL  INPUT
*&---------------------------------------------------------------------*
*       强制退出
*----------------------------------------------------------------------*
MODULE cancel INPUT.
  LEAVE PROGRAM.
ENDMODULE.                 " CANCEL  INPUT

屏幕逻辑流：

PROCESS BEFORE OUTPUT.
  MODULE status_0100.
  LOOP WITH CONTROL sflight.
    MODULE read_data.
  ENDLOOP.
PROCESS AFTER INPUT.
  MODULE cancel AT EXIT-COMMAND.
  LOOP WITH CONTROL sflight.
    MODULE modify_ct.
  ENDLOOP.
  MODULE user_command_0100.