oldval( ) 函数示例

下面的示例演示了如何使用 oldval( ) 从缓冲表中返回字段的初始值。先创建一个名为 employees 的表，再使用 insert-sql 向 clastlname 字段中插入“smiths”值。multilocks 设置为 on，需要有表缓冲。cursorprop( ) 命令用于将缓冲模式设置为优化的表缓冲 (5)。显示 clastname 字段的初始值 (smith)，然后用 replace 语句对其进行修改。显示 clastname 字段的新值 (jones)，之后使用 oldval( ) 来显示 clastname 字段的初始值 (smith)。用 tableupdate( ) 执行对表的修改，最后显示 clastname 字段的更新值 (jones)。

close databases
create table employee (clastname c(10)) 
append blank
insert into employee (clastname) values ('smith')
set multilocks on && 必须设置为 on 来启动表缓冲
= cursorsetprop('buffering', 5, 'employee' ) && 启动表缓冲


clear
? 'original clastname value: '
?? clastname && 显示当前 clastname 值(smits)

replace clastname with 'jones'
? 'new clastname value: '
?? clastname && 显示clastname的新值(jones)
? 'clastname value returned by oldval( ): '
?? oldval('clastname', 'employee') && 初始值(smith)

= tableupdate(.t.)
? 'updated clastname value: '

?? clastname && 显示当前clastname值(jones)