下面的示例创建了一个自由表 mytable,并在 cdigit 字段中插入值“one”。首先用 set multilocks on 和
cursorsetprop( ) 激活开放式表缓冲。然后在 cdigit 字段中插入值“two”,用 curval( ) 和
oldval( ) 显示原来的 cdigit 值。最后用 tableupdate( ) 来提交对表所作的更改,并用 curval( ) 和 oldval( ) 来显示新的 cdigit 值。请注意:由于这是单用户示例,curval( ) 和 oldval( ) 返回同一值。
create table mytable free (cdigit c(10))
insert into mytable (cdigit) values ("one") && 原始值
set multilocks on && 必须设成 on 以得到开放式表缓冲
= cursorsetprop('buffering',5) && 打开开放式表缓冲
replace cdigit with "two" && 新值
clear
? 'current value: ' + curval('cdigit', 'mytable')
? 'old value: ' + oldval('cdigit', 'mytable')
= tableupdate(.t.) && 提交所有对表作出的更改
? 'table changes committed'
? 'new current value: ' + curval('cdigit', 'mytable')
? 'new old value: ' + oldval('cdigit', 'mytable')