lines = sy-loopc（PBO的LOOP中获得）,ZPLM是TC控件名
MODULE user_command_0100 INPUT.
DATA okcode TYPE sy-ucomm.
CASE okcode.
WHEN 'BACK' OR 'EXIT'.
SET SCREEN 0.
LEAVE SCREEN.
WHEN 'P++' OR 'P+' OR 'P-' OR 'P--'.
CALL FUNCTION 'SCROLLING_IN_TABLE'
EXPORTING
entry_act = zplm-top_line
entry_to = zplm-lines
loops = lines
ok_code = okcode
IMPORTING
entry_new = zplm-top_line.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
阅读(740) | 评论(0) | 转发(0) |
