将SPT所读取的Cursor便成可擦写
出处:网络

Lparameters cTableName, cUpdateKey, cBuffering
cBuffering=IIF(EMPTY(cBuffering),3,cBuffering)
***要更新的远程数据表格
CURSORSETPROP("Tables","&cTableName")
***主键值栏
CURSORSETPROP("KeyfieldList","&cUpdateKey")
***指定前后端字段的对应关系
nl=NameList(cTableName)
CURSORSETPROP("UpdateNameList",nl)
***可更新的字段
fl=FieldList()
CURSORSETPROP("UpdatableFieldList",fl)
***SQL WHERE子句包括 1仅键值栏 2键值和可更新字段 3键值和已修改的字段 4键值和时间戳记字段
CURSORSETPROP("WhereType",4)
***更新开关
CURSORSETPROP("SendUpdates",.T.)
***缓冲模式
CURSORSETPROP("Buffering",cBuffering)
RETURN

Function FieldList
FieldList=""
For II=1 to Fcount()
FieldList=FieldList+Field(II)+","
EndFor
Return LEFT(FieldList,LEN(FieldList)-1)

Function NameList
Lparameters cTableName
FieldList=""
For II=1 to Fcount()
FieldList=FieldList+Field(II)+" "+cTableName+"."+Field(II)+","
EndFor
Return LEFT(FieldList,LEN(FieldList)-1)

[返回]

首页 | 设为首页 | 加入收藏 | 关于本站 | 友情链接 | 版权声明