scatter 命令示例

示例 1

此示例使用了 scatter 语句创建了一系列基于 test 表中字段的变量。然后为每个字段赋值并向表添加了一个空记录。使用 gather 命令将数据复制到表中。

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

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

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