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.