从正在进行的浏览4gl生成报告的通用过程

Question

过程应该处理链接到浏览的任何表，这意味着它应该是通用的。 请帮忙。

    /* below code is sample to Show the data in message box , 
       but only first data it is showing right now.*/

    DEFINE INPUT PARAMETER hRecord  AS WIDGET-HANDLE.
    DEFINE INPUT PARAMETER hQuery  AS WIDGET-HANDLE .

    DEF VAR hFld     AS HANDLE    NO-UNDO.
      DEFINE VARIABLE iCOunt AS INTEGER INITIAL 0.
      DEFINE VARIABLE i AS INTEGER NO-UNDO.
      DEFINE VARIABLE j AS integer INITIAL 1.


      MESSAGE hRecord:NUM-COL VIEW-AS ALERT-BOX.

       DO WHILE TRUE:
                hQuery:GET-NEXT().
                iCount = iCount + 1.


                DO i = 1 TO hRecord:NUM-COL:
                       hfld = hRecord:GET-BROWSE-COL(i).
                    MESSAGE hfld:SCREEN-VALUE.

                END.
                   j = j + 1.


       END.
       MESSAGE iCount VIEW-AS ALERT-BOX.
    END PROCEDURE.

Answer 1

你可以像这样得到一个缓冲区字段：

hfld = hRecord:GET-BUFFER-FIELD(i).

然后获取字段的值：

DISPLAY hfld:BUFFER-VALUE.

请参阅文档以了解这些内容的解释。