进展4GL冻结

Question

我开始了新的主题。 我有一个奇怪的问题，程序源我看不到。

我挂钩了program_b.p：

的入口事件

DEF VAR hField1 AS HANDLE.
DEF VAR hField2 AS HANDLE.
hField1 = getHandle( "field1", "frame1" ) . /* (This function is not important, works properly, returning handle to field in that frame) */
hField2 = getHandle( "field2", "frame1" ) .

/* Now i want to write something to field1 and go to field2 . */
IF FOCUS = field1 
THEN DO: 
    field1:screen-value = 'something'.
    APPLY "RETURN" TO field1. /* OR "ENTER" , doesn't matter because dont work */
    PAUSE 0 NO-MESSAGE.
END.

PAUSE 0. /* Just in case  */

当在原始程序中我在field1上输入时，执行该program_b。 但在更新field1之后它会冻结并等待任何键。 （它不是“按空格键继续”）。 'anykey'之后输入field2。在field2中我没有这样的问题。它的自动转到field3。而在field3上同样的问题。其他领域（我有7个）正常工作。只有field1和field3导致此冻结。

Answer 1

你只是显示小片段而没有足够的代码来真正说明发生了什么，但是：

RETURN NO-APPLY.

是鸡汤的诱因吗？特别是在UI中修改字段内容的触发器。您可以尝试将其添加到您正在执行的任何操作中。