我有一个带有一个表控件的屏幕,它显示了我内部数据库的值。 它完美无缺。
我添加了另一个表控件,但没有按照我想要的方式设置。
我删除了控件CONTROLS: tc_two TYPE TABLEVIEW USING SCREEN 9000.
现在我收到运行时错误CONTROL-Variable not found
。
问:如果我申报新的控制会怎么样?他们在哪里实施?
我尝试调试我的代码,错误出现在CALL SCREEN 9000.
以下是完整代码:
REPORT zsch_test.
CONTROLS: tc_one TYPE TABLEVIEW USING SCREEN 9000.
DATA: it_uebung TYPE TABLE OF zsch_uebung,
ok_code TYPE sy-ucomm,
fill TYPE i.
TABLES zsch_uebung.
DATA: lines TYPE i,
limit TYPE i.
SELECT * FROM zsch_uebung INTO CORRESPONDING FIELDS OF TABLE it_uebung WHERE status = '1'.
CALL SCREEN 9000.
MODULE status_9000 OUTPUT.
SET PF-STATUS 'STATUS9000'.
* SET TITLEBAR 'xxx'.
DESCRIBE TABLE it_uebung LINES fill.
tc_one-lines = fill.
ENDMODULE.
MODULE fill_table_control OUTPUT.
READ TABLE it_uebung INTO zsch_uebung INDEX tc_one-current_line.
ENDMODULE.
MODULE cancel INPUT.
LEAVE PROGRAM.
ENDMODULE.
MODULE read_table_control INPUT.
lines = sy-loopc.
MODIFY it_uebung FROM zsch_uebung INDEX tc_one-current_line.
ENDMODULE.
MODULE user_command_9000 INPUT.
ok_code = sy-ucomm.
CASE ok_code.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN OTHERS.
ENDCASE.
ENDMODULE.
屏幕9000:
PROCESS BEFORE OUTPUT.
MODULE STATUS_9000.
LOOP WITH CONTROL TC_ONE.
MODULE fill_table_control.
ENDLOOP.
PROCESS AFTER INPUT.
MODULE cancel AT EXIT-COMMAND.
LOOP WITH CONTROL TC_ONE.
MODULE read_table_control.
ENDLOOP.
MODULE USER_COMMAND_9000.
谢谢!
答案 0 :(得分:0)
由于问题在没有进一步操作的情况下明显消失,人们可能会认为这是一个缓冲区问题(这就是为什么你应该在测试更改的程序时重新启动整个事务)或者你不小心激活了整个程序(例如,仅激活报告源,但不激活屏幕定义)。