if used("jxcdata")
set database to jxcdata
else
open data dbf\jxcdata share
endif
datemonth=''
creat view cbsj_all connection jxclnk as select id,ckh,xh,ycsl,ycje,rksl,rkje,cksl,ckje,kcdj,kcsl,kcje,datemonth,cklb from cbsj_all where datemonth=?datemonth order by ckh
dbsetprop('cbsj_all.id','field','keyfield',.t.) &&&设置视图的关键字
dbsetprop('cbsj_all','view','tables','cbsj_all') &&&设置表使其可更新
dbsetprop('cbsj_all','view','sendupdates',.t.) &&激活更新功能,即发送 SQL 更新
dbsetprop('cbsj_all.id','field','Updatable',.t.) &&&设置视图的关键字
if used("cbsj_all")
use cbsj_all in cbsj_all
else
use cbsj_all in 0
endif
sele cbsj_all
cursorsetprop('buffering',5)