下面示例显示了如何用cursorsetprop()激活开放式表缓冲,表缓冲要求multilocks 设为on。首先打开 testdata 数据库的 customer 表,然后用cursorsetprop()设置缓冲方式为开放式表缓冲(5)。如果成功地激活开放式表缓冲,则显示“真”(.t.),否则显示“假”(.f.)。
close databases
clear
set multilocks on
open database (home(2) + 'data\testdata')
use customer && open customer table
* set buffering mode and store logical result
lsuccess=cursorsetprop("buffering", 5, "customer")
if lsuccess = .t.
=messagebox("operation successful!",0,"operation status")
else
=messagebox("operation not successful!",0,"operation status")
endif