Table Control作为一个表维护的标准工具,在屏幕程序中经常使用。它的特点就是简单,实现速度快。缺点就是不够灵活。
PROCESS BEFORE OUTPUT.
*&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'ZTC'
MODULE ZTC_CHANGE_TC_ATTR.
*&SPWIZARD: MODULE ZTC_CHANGE_COL_ATTR.
LOOP AT GT_ZKEVIN
INTO GS_ZKEVIN
WITH CONTROL ZTC
CURSOR ZTC-CURRENT_LINE.
MODULE ZTC_GET_LINES.
*&SPWIZARD: MODULE ZTC_CHANGE_FIELD_ATTR
ENDLOOP.
MODULE STATUS_1000.
*
PROCESS AFTER INPUT.
*&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 'ZTC'
LOOP AT GT_ZKEVIN.
CHAIN.
FIELD GS_ZKEVIN-ID.
FIELD GS_ZKEVIN-NAME.
MODULE ZTC_MODIFY ON CHAIN-REQUEST.
endchain.
FIELD GS_ZKEVIN-LINE
MODULE ZTC_MARK ON REQUEST.
ENDLOOP.
MODULE ZTC_USER_COMMAND.
*&SPWIZARD: MODULE ZTC_CHANGE_TC_ATTR.
*&SPWIZARD: MODULE ZTC_CHANGE_COL_ATTR.
MODULE USER_COMMAND_1000.