如何更改WHEN_VALIDATE_ITEM上的列表项值

Question

我正在使用非常旧的软件上的Forms 6i。
需要在窗体中添加3个列表项（组合框）。
如果列表项目X中的值发生更改，则在WHEN_VALIDATE_ITEM上，我需要更改列表项目Y上的值。
以下是代码，但它不起作用。

BEGIN 
IF :PIH.TEXT_ITEM1544='Book' THEN 
Copy('Own Use',Name_In('PIH.TEXT_ITEM1546')); 
END IF; 
END; 

有在编译没有错误，但我相信，当我选择的价值账面并按回车键或选项卡，然后去到另一个领域，没有被触发。

任何帮助将是非常可观的。

Answer 1

你想要做什么？如果你想在价值'Own Use'分配给项目PIH.TEXT_ITEM1546你可以做到这一点：

:PIH.TEXT_ITEM1546 := 'Own Use'; 

或用：

Copy('Own Use','PIH.TEXT_ITEM1546') 

声明你使用：

Copy('Own Use',Name_In('PIH.TEXT_ITEM1546')); 

是试图将值'Own Use'复制到PIH.TEXT_ITEM1546引用的项目，即它试图将值复制到名为值sto的项目在项目PIH.TEXT_ITEM1546中为红色。

Name_In函数获取指定项目的值。