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)
|