正在进行中4gl获取临时表的字段名

Question

我有一些临时表在我的脚本，我将导出到csv文件。我还需要导出字段名及其值。如何获得临时表的字段名?

Answer 1

下面是一个简单的例子:

define temp-table tt1
  field f1 as character
  field f2 as decimal
  .
def var iCnt as integer no-undo.
create tt1.
assign 
   tt1.f1 = "f1"
   tt1.f2 = 123.456
   .
do icnt = 1 to buffer tt1:num-fields:
   display buffer tt1:buffer-field(icnt):name
           buffer tt1:buffer-field(icnt):buffer-value
       with down
       .
   down.
end.