*&SPWIZARD: OUTPUT MODULE FOR TC 'ZCONTROL'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: GET LINES OF TABLECONTROL
MODULE ZCONTROL_GET_LINES OUTPUT."ZCONTROL为table control名称
G_ZCONTROL_LINES = SY-LOOPC.
DATA:L_LINE TYPE I.
L_LINE = ZCONTROL-CURRENT_LINE.
L_LINE = L_LINE MOD 2.
LOOP AT SCREEN.
CHECK SCREEN-NAME EQ 'MARA-ERSDA'."MARA-ERSDA为对应屏幕字段
CASE L_LINE.
WHEN 0.
SCREEN-INPUT = 1.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.
ENDMODULE. "ZCONTROL_GET_LINES OUTPUT
阅读(6459) | 评论(0) | 转发(0) |
