ABAP 中 Table Control例子

实现了Table Control的主要的一些功能，可以作为例子参考，实现的功能有是否可编辑切换，选择某一条记录点击按钮显示详细信息，新增记录，删除记录，选择所有记录，选择光标所有记录，取消选择所有，排序，行选择栏位，列不可编辑，固定列，Table Control标题，分页功能，根据输入A字段的值显示B字段的值，某字段的值如果等于XXX就不可编辑等功能。相信这些功能已经可以满足大部份的开发了。 p> 

p>主程序代码：

p>DATA: ok_code TYPE sy-ucomm,

p>      save_ok TYPE sy-ucomm.

p>DATA: l_field TYPE char50,

p>      l_line  TYPE i.

p> 

p>TYPES: BEGIN OF ty_spfli,

p>         carrid TYPE spfli-carrid,

p>         connid TYPE spfli-connid,

p>         countryfr TYPE spfli-countryfr,

p>         cityfrom TYPE spfli-cityfrom,

p>         airpfrom TYPE spfli-airpfrom,

p>         mask(1),

p>END OF ty_spfli.

p> 

p>DATA g_lines TYPE i.

p>DATA sp2 TYPE TABLE OF ty_spfli WITH HEADER LINE.

p> 

p>DATA sp1 TYPE ty_spfli.

p> 

p>SELECT * INTO CORRESPONDING FIELDS OF TABLE sp2 FROM spfli.

p> 

p>CONTROLS content TYPE TABLEVIEW USING SCREEN 100.

p>content-top_line = 1.

p>content-lines = LINES( sp2 ).

p> 

p>CALL SCREEN 100.

p> 

p>LOOP AT sp2.

p>  WRITE: / sp2-carrid,sp2-connid,sp2-countryfr,sp2-cityfrom.

p>ENDLOOP.

p> 

p>*----------------------------------------------------------------------*

p>*  MODULE status_0100 OUTPUT

p>*----------------------------------------------------------------------*

p>*

p>*----------------------------------------------------------------------*

p>MODULE status_0100 OUTPUT.

p>  SET PF-STATUS 'STA'.

p>ENDMODULE.                    "status_0100 OUTPUT

p> 

p>*----------------------------------------------------------------------*

p>*  MODULE user_command_0100 INPUT

p>*----------------------------------------------------------------------*

p>*

p>*----------------------------------------------------------------------*

p>MODULE user_command_0100 INPUT.

p>  save_ok = ok_code.

p>  CLEAR ok_code.

p>  CASE save_ok.

p>    WHEN 'EXIT'.

p>      LEAVE TO SCREEN 0.

p>    WHEN 'SWITH'.

p>      PERFORM f_switch.

p>    WHEN 'SORT_UP'.

p>      PERFORM f_sort USING 'UP'.

p>    WHEN 'SORT_DOWN'.

p>      PERFORM f_sort USING 'DOWN'.

p>    WHEN 'DETAIL'.

p>      PERFORM f_detail.

p>    WHEN 'P--'.

p>      PERFORM f_page USING save_ok.

p>    WHEN 'P-'.

p>      PERFORM f_page USING save_ok.