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

Question

示例：

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

任何人都知道我该怎么做？

Answer 1

您想在用户在代码列中输入内容后自动填充描述列吗？您可以在浏览器上使用ON LEAVE触发器来做到这一点。下面是一个示例，用于在用户离开代码时将代码列复制到说明列。您也可以使用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.