如何更改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;

编译时没有错误，但我相信当我选择值Book并按Enter或tab并转到另一个字段时，不会触发任何内容。

任何帮助都会非常明显。

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引用的项目，即，它尝试将值复制到名为{{{1}项中存储的值的项目1}}。

PIH.TEXT_ITEM1546函数获取指定项的值。