Question

示例：

我浏览了“代码项”，“项目描述”列。放置填充时，项目的代码会自动使用临时表项目的描述填充单元格。

有人知道我是怎么做到的吗？

Answer 1

您想在用户在代码列中输入内容后自动填充说明列吗？您可以使用浏览器上的ON LEAVE触发器执行此操作。下面是一个示例，用于在用户离开代码时将代码列复制到description列。您还可以使用ON VALUE-CHANGED在用户键入代码时更新说明。

DEFINE TEMP-TABLE ttBrs NO-UNDO
    FIELD Code AS CHARACTER
    FIELD Descr AS CHARACTER.

DEFINE QUERY qBrs FOR ttBrs SCROLLING.

DEFINE BROWSE brs1
    QUERY qBrs DISPLAY
        ttBrs.Code COLUMN-LABEL "Code Item"
        ttBrs.Descr COLUMN-LABEL "Item Description"
        ENABLE ttBrs.Code ttBrs.Descr
    WITH NO-ROW-MARKERS SEPARATORS SIZE 80 BY 10 FONT 4 FIT-LAST-COLUMN.

ON LEAVE OF ttBrs.Code IN BROWSE brs1
DO:
    ttBrs.Descr:SCREEN-VALUE IN BROWSE brs1 = ttBrs.Code:SCREEN-VALUE.
END.

DEFINE FRAME fFrame
    brs1 AT ROW 1 COL 1
    WITH VIEW-AS DIALOG-BOX SCROLLABLE.

CREATE ttBrs.

VIEW FRAME fFrame.
OPEN QUERY qBrs FOR EACH ttBrs.
brs1:SENSITIVE = TRUE.

WAIT-FOR "GO" OF FRAME fFrame.

退出单元格时如何在浏览进度中自动填充单元格

1 个答案: