简单的table control小实例

执行结果：



一、主程序代码：

1. *&---------------------------------------------------------------------*
   
2. *& Report  ZLXG_013
   
3. *&
   
4. *&---------------------------------------------------------------------*
   
5. *&
   
6. *&
   
7. *&---------------------------------------------------------------------*
   
8. 
   
9. REPORT  ZLXG_013.
   
10. INCLUDE ZLXG_013_DEF.
    
11. INCLUDE ZLXG_013_MAIN.
    
12. INCLUDE ZLXG_013_100_PBO.
    
13. INCLUDE ZLXG_013_100_PAI.

复制代码

INCLUDE ZLXG_013_DEF.

1. *&---------------------------------------------------------------------*
   
2. *&  Include           ZLXG_013_DEF
   
3. *&---------------------------------------------------------------------*
   
4. TABLES:sdyn_conn.
   
5. CONTROLS mytable TYPE TABLEVIEW USING SCREEN '100'."这里定义的control属性和100屏幕里的属性是一样的
   
6. "mytable是个Deep Structure，拥有很多属性，它实现了对表格控件的所有属性的封装。

复制代码

INCLUDE ZLXG_013_MAIN.

1. *&---------------------------------------------------------------------*
   
2. *&  Include           ZLXG_013_MAIN
   
3. *&---------------------------------------------------------------------*
   
4. CALL SCREEN 100.

复制代码

INCLUDE ZLXG_013_100_PBO.

1. *----------------------------------------------------------------------*
   
2. ***INCLUDE ZLXG_013_100_PBO .
   
3. *----------------------------------------------------------------------*
   
4. *&---------------------------------------------------------------------*
   
5. *&      Module  STATUS_0100  OUTPUT
   
6. *&---------------------------------------------------------------------*
   
7. *       text
   
8. *----------------------------------------------------------------------*
   
9. MODULE status_0100 OUTPUT.
   
10.   SET PF-STATUS 'STATUS_100'.
    
11. *  SET TITLEBAR 'xxx'.
    
12. 
    
13. ENDMODULE.                 " STATUS_0100  OUTPUT
    
14. *&---------------------------------------------------------------------*
    
15. *&      Module  GET_DATA  OUTPUT
    
16. *&---------------------------------------------------------------------*
    
17. *       text
    
18. *----------------------------------------------------------------------*
    
19. MODULE get_data OUTPUT.
    
20.   IF loaded IS INITIAL.
    
21.     SELECT *
    
22.       FROM spfli
    
23.       INTO CORRESPONDING FIELDS OF TABLE it_spfli.
    
24.     loaded = 'X'.
    
25.   ENDIF.
    
26. ENDMODULE.                 " GET_DATA  OUTPUT
    
27. *&---------------------------------------------------------------------*
    
28. *&      Module  INPUT_DATA  OUTPUT
    
29. *&---------------------------------------------------------------------*
    
30. *       text
    
31. *----------------------------------------------------------------------*
    
32. MODULE input_data OUTPUT.
    
33.   MOVE-CORRESPONDING wa_spfli TO sdyn_conn.
    
34. ENDMODULE.                 " INPUT_DATA  OUTPUT
    
35. *&---------------------------------------------------------------------*
    
36. *&      Module  CLEAR_OK_CODE  OUTPUT
    
37. *&---------------------------------------------------------------------*
    
38. *       text
    
39. *----------------------------------------------------------------------*
    
40. MODULE clear_ok_code OUTPUT.
    
41.   CLEAR ok_code.
    
42. ENDMODULE.                 " CLEAR_OK_CODE  OUTPUT

复制代码

INCLUDE ZLXG_013_100_PAI.

1. *----------------------------------------------------------------------*
   
2. ***INCLUDE ZLXG_013_100_PAI .
   
3. *----------------------------------------------------------------------*
   
4. *&---------------------------------------------------------------------*
   
5. *&      Module  USER_COMMAND_0100  INPUT
   
6. *&---------------------------------------------------------------------*
   
7. *       text
   
8. *----------------------------------------------------------------------*
   
9. MODULE user_command_0100 INPUT.
   
10.   CASE ok_code.
    
11.     WHEN 'EXIT'  OR 'BACK' OR 'CANCEL'.
    
12.       LEAVE TO SCREEN 0.
    
13.   ENDCASE.
    
14. ENDMODULE.                 " USER_COMMAND_0100  INPUT
    
15. *&---------------------------------------------------------------------*
    
16. *&      Module  CHANGE_DATA  INPUT
    
17. *&---------------------------------------------------------------------*
    
18. *       text
    
19. *----------------------------------------------------------------------*
    
20. MODULE change_data INPUT.
    
21.   MOVE-CORRESPONDING sdyn_conn TO wa_spfli.
    
22.   MODIFY it_spfli FROM wa_spfli INDEX mytable-current_line.
    
23. ENDMODULE.                 " CHANGE_DATA  INPUT

复制代码

二、screen 100
1.attribute->normal
2.element list->ok_code

3.flow logic

1. PROCESS BEFORE OUTPUT.
   
2.   MODULE clear_ok_code.
   
3.   MODULE status_0100.
   
4.   MODULE get_data.
   
5.   LOOP AT it_spfli INTO wa_spfli WITH CONTROL mytable.
   
6.     MODULE input_data.
   
7.   ENDLOOP.
   
8. 
   
9. PROCESS AFTER INPUT.
   
10.   LOOP AT it_spfli.   "LOOP AT IT_SPFLI INTO WA_SPFLI  XXXXXX
    
11.     MODULE change_data.
    
12.   ENDLOOP.
    
13.   MODULE user_command_0100.

复制代码