进度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中修改字段内容的触发器。你可以试着把它添加到你正在做的任何事情中。