如何添加用户控件以填充主从表单上的记录？答案

【问题标题】：How to add a user control to populate records on a master-detail form?如何添加用户控件以填充主从表单上的记录？
【发布时间】：2014-03-07 20:39:09
【问题描述】：

请帮助，Oracle 表单专家！

我创建了一个主从表单，用户现在想要添加一个控件来填充其上的记录——打开的项目、关闭的项目或所有项目。

我创建了一个包含一个项目 (Radio_Group) 的新数据块，并布置了 3 个单选按钮 OPEN、CLOSED 和 ALL，它们应该与表列的值匹配，例如 'Sent1、Sent2、Sent3、Reviewed' 用于 OPEN、' CLOSED 和 ALL 的 Rejected, Declined' 应涵盖两者。

在 Radio_Group Property_Pallete 上，项目类型：Radio Group；子类信息：RADIO_GROUP；其他值的映射：开放； & 初始值：打开

对于 3 个单选按钮，标签和单选按钮值相同：打开、关闭和全部。

在 WHEN-RADIO-CHANGED 中，我写道：

IF :RADIO_DISPLAY.DISPLAY = 'OPEN' THEN

   SET_BLOCK_PROPERTY('CCR_MANAG_MAIN', DEFAULT_WHERE,
     'upper(ISG_STATUS) like ''SEN%'' or upper(ISG_STATUS) like ''%REVIEW''');
   GO_BLOCK('CCR_MANAG_MAIN');
   CLEAR_FORM('NO_VALIDATE');
   execute_query;

IFELS upper(:RADIO_DISPLAY.DISPLAY) = upper('CLOSED') THEN
    SET_BLOCK_PROPERTY('CCR_MANAG_MAIN', DEFAULT_WHERE
      ,'upper(ISG_STATUS) not like ''SEN%'' and upper(ISG_STATUS) not like ''%REVIEW''');
    GO_BLOCK('CCR_MANAG_MAIN');
    CLEAR_FORM('NO_VALIDATE');
    execute_query;

ELSE
    SET_BLOCK_PROPERTY('CCR_MANAG_MAIN', DEFAULT_WHERE,'');
    GO_BLOCK('CCR_MANAG_MAIN');
    CLEAR_FORM('NO_VALIDATE');
    execute_query;
END IF;

没有编译错误，但单选按钮不起作用。我错过了什么？谢谢。

【问题讨论】：

标签： forms oracle master-detail

【解决方案1】：

我相信你的 CLEAR_FORM('NO_VALIDATE');正在将光标发送到控制块，然后您的 execute_query 在错误的块中执行。

尝试使用 CLEAR_BLOCK('NO_VALIDATE');如果确实需要清除字段。

【讨论】：

我在国外呆了 5 周，现在又回到了这个项目。谢谢 Elias 回答我的问题。但是，我进行了更改，但仍然无法正常工作。还有什么需要检查的吗？？
欢迎回来，哈哈；好吧，关于你的问题：我现在不确定它到底是什么。是否正在执行查询？检查您的查询是否有任何预查询触发器。此外，您可以检查正在创建的查询是否一致。
我尝试将代码放入 WHEN-RADIO-CHANGED 的预查询（也在 WHEN-NEW_FORM-INSTANCE 中），但无法使其正常工作。我的目标是为用户提供 3 个选择来填充主多记录表单：所有项目、打开项目和关闭项目，应该基于 3 个选择语句
从 inds_ccr_manag_main 中选择 *； select * from inds_ccr_manag_main where upper(ISG_STATUS) like 'SEN%' or upper(ISG_STATUS) like '%REVIEW'; select * from inds_ccr_manag_main where upper(ISG_STATUS) not like 'SEN%' and upper(ISG_STATUS) not like '%REVIEW';
是的，Radio Group 应该可以工作。那么......是正在执行查询还是在运行时发生了一些错误？