Abap/4控制表格控件（1）

*&---------------------------------------------------------------------*

*& Report Z_CPT8_2 *

*& *

*&---------------------------------------------------------------------*

*& 手工创建表控件 *

*& *

*&---------------------------------------------------------------------*

REPORT Z_CPT8_2 .

DATA:OK_CODE TYPE SY-UCOMM,

S***E_OK LIKE SY-UCOMM.

DATA SP2 LIKE TABLE OF SPFLI WITH HEADER LINE.

DATA SP1 TYPE SPFLI.

DATA NUMS TYPE I.

SELECT * FROM SPFLI

INTO TABLE SP2.

CALL SCREEN 100.

"定义表控制对象

CONTROLS TBL1 TYPE TABLEVIEW USING SCREEN 100.

"输出数据

*LOOP AT SP2.

* WRITE: / SP2-CARRID

* ,SP2-CONNID

* ,SP2-COUNTRYFR

* ,SP2-CITYFROM.

*ENDLOOP.



*&---------------------------------------------------------------------*

*& Module STATUS_0100 OUTPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE STATUS_0100 OUTPUT.

* SET PF-STATUS 'mystatus'.

* SET TITLEBAR 'xxx'.

"加了这行代码就能让表格滚动

IF NUMS = 0.

DESCRIBE TABLE SP2 LINES NUMS.

TBL1-LINES = NUMS.

ENDIF.

ENDMODULE. " STATUS_0100 OUTPUT

*&---------------------------------------------------------------------*

*& Module USER_COMMAND_0100 INPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE USER_COMMAND_0100 INPUT.

S***E_OK = OK_CODE.

CLEAR OK_CODE.

CASE S***E_OK.

WHEN 'DISABLED'.

WHEN 'CURLINE'.

"GET CURSOR LINE LINEA.

WHEN 'DELCURLINE'.

WHEN 'UPTCURLINE'.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

*&---------------------------------------------------------------------*

*& Module CANCEL INPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE CANCEL INPUT.

LE***E PROGRAM.

ENDMODULE. " CANCEL INPUT

*&---------------------------------------------------------------------*

*& Module FILLTBL1 OUTPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE FILLTBL1 OUTPUT.

READ TABLE SP2 INTO SP1 INDEX TBL1-CURRENT_LINE.

ENDMODULE. " FILLTBL1 OUTPUT

*&---------------------------------------------------------------------*

*& Module READTBL1 INPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE READTBL1 INPUT.

MODIFY SP2 FROM SP1 INDEX TBL1-CURRENT_LINE.

ENDMODULE. " READTBL1 INPUT







*子屏幕100的逻辑流代码

PROCESS BEFORE OUTPUT.

MODULE STATUS_0100.

LOOP WITH CONTROL TBL1.

MODULE FILLTBL1.

ENDLOOP.

*

PROCESS AFTER INPUT.

LOOP WITH CONTROL TBL1.

MODULE READTBL1.

ENDLOOP.

MODULE USER_COMMAND_0100.

MODULE CANCEL AT EXIT-COMMAND.