REPORT ztest_pillar.DATA: ok_code TYPE sy-ucomm.DATA: save_ok TYPE sy-ucomm.DATA: nums TYPE i."定义内表存储数据库数据DATA: sp2 LIKE TABLE OF spfli WITH HEADER LINE."定义单结构记录DATA: sp1 TYPE spfli.data ACOL type SCXTAB_COLUMN.*data ACOL like tab_crl-cols."增加内表数据SELECT * INTO CORRESPONDING FIELDS OF TABLE sp2 FROM spfli."直接调用窗口CALL SCREEN 100."定义表控制对象CONTROLS tab_crl TYPE TABLEVIEW USING SCREEN 100."输出数据看内表有无改变LOOP AT sp2. WRITE: / sp2-carrid, sp2-connid.ENDLOOP.*&---------------------------------------------------------------------**& Module USER_COMMAND_0100 INPUT*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*MODULE user_command_0100 INPUT. save_ok = ok_code. CLEAR ok_code. CASE save_ok. WHEN 'EXIT'. LEAVE PROGRAM. WHEN 'READWR'. LOOP AT TAB_CRL-COLS INTO ACOL WHERE INDEX GT 0. IF sy-tabix = 1. "单击后将第一列永远变为只读 acol-screen-input = '0'. else. IF acol-screen-input = '0'. acol-screen-input = '1'. ELSEIF acol-screen-input = '1'. acol-screen-input = '0'. ENDIF. ENDIF. modify tab_crl-cols FROM acol INDEX sy-tabix. ENDLOOP. ENDCASE.ENDMODULE. " USER_COMMAND_0100 INPUT*&---------------------------------------------------------------------**& Module STATUS_0100 OUTPUT*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*MODULE status_0100 OUTPUT. SET PF-STATUS 'STATUS1'.* SET TITLEBAR 'xxx'."给tabcontrol增加控制条---------------------------------------------------- IF nums = 0. DESCRIBE TABLE sp2 LINES nums. tab_crl-lines = nums. ENDIF.ENDMODULE. " STATUS_0100 OUTPUT*&---------------------------------------------------------------------**& Module FILLTAB1 OUTPUT*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*MODULE filltab1 OUTPUT. READ TABLE sp2 INTO sp1 INDEX tab_crl-current_line.ENDMODULE. " FILLTAB1 OUTPUT*&---------------------------------------------------------------------**& Module READTAB1 INPUT*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*MODULE readtab1 INPUT. MODIFY sp2 FROM sp1 INDEX tab_crl-current_line.ENDMODULE. " READTAB1 INPUT