gather 命令示例

示例 1

此示例使用 gather 命令将数据复制到表的新记录中。在创建 test 之后，使用scatter 命令创建一套基于表中字段的变量。然后对每个字段赋值并向表中添加一个空记录。

create table test free ;
   (object c(10), color c(16), sqft n(6,2))
scatter memvar blank
m.object="box"
m.color="red"
m.sqft=12.5
append blank
gather memvar
browse

示例 2

此示例使用了 gather 命令及 name 子句将数据复制到表的新记录。在创建表 test之后，使用 scatter 命令创建具有基于表中字段属性的对象。然后为对象的属性赋值并向表添加一个空记录。

create table test free ;
   (object c(10), color c(16), sqft n(6,2))
scatter name otest blank
otest.object="box"
otest.color="red"
otest.sqft=12.5
append blank
gather name otest
release otest
browse