将SPT所读取的Cursor便成可擦写
Lparameters cTableName,cUpdateKey,cBuffering
cBuffering = IIF(EMPTY(cBuffering),3,CBUFFERING)
* *要更新的远程数据表
CursorSetProp ("tables "," &c tablename")
* *主键值列
CursorSetProp(" key field list "," & cupdatekey")
* *指定前后字段的对应关系
Nl = name list(cc table FL)
* * SQL WHERE子句仅包含1个键列2个键和可更新字段3个键和修改字段4个键和时间戳字段
CURSORSETPROP("WhereType ",4)
* * * update switch
cursor set prop(" send updates ", T.)
* *缓冲模式
游标设置提示(" buffering ",cbuffering)
返回
函数Field list
Field list = " "
For II = 1 to Fcount()
Field list = Field list+Field(II)+","
end For
Return LEFT(Field list,LEN(FieldList)-1)
函数名称列表
Lparameters cTableName
Field list = " "
For II = 1 to Fcount()
Field list = Field list+Field(II)+" "+cTableName+","+Field(II)+","
end for
Return LEFT(Field list,LEN(FieldList)-1)
0条评论