SAP TableControl 控制单个单元格输入

*屏幕中

PROCESS BEFORE OUTPUT.

*&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'TBL'

MODULE TBL_CHANGE_TC_ATTR.

*&SPWIZARD: MODULE TBL_CHANGE_COL_ATTR.

LOOP AT I_TAB

INTO WA_TAB

WITH CONTROL TBL

CURSOR TBL-CURRENT_LINE.

MODULE TBL_GET_LINES.

*&SPWIZARD: MODULE TBL_CHANGE_FIELD_ATTR

ENDLOOP.

MODULE STATUS_9000.

*程序中

*&SPWIZARD: OUTPUT MODULE FOR TC 'TBL'. DO NOT CHANGE THIS LINE!

*&SPWIZARD: GET LINES OF TABLECONTROL

MODULE TBL_GET_LINES OUTPUT.

G_TBL_LINES = SY-LOOPC.

WA_TAB-NUM = TBL-CURRENT_LINE.

DATA:L_LINE TYPE I.

L_LINE = TBL-CURRENT_LINE.

* L_LINE = L_LINE MOD 2.

LOOP AT SCREEN.

CHECK SCREEN-NAME EQ 'WA_TAB-CHE'." 对应屏幕字段

* CASE L_LINE.

* WHEN 0.

SCREEN-INPUT = 1.

* ENDCASE.

MODIFY SCREEN.

ENDLOOP.

ENDMODULE. "TBL_GET_LINES OUTPUT