将SPT所读取的Cursor便成可擦写
来源:优易学  2010-1-15 19:44:27   【优易学:中国教育考试门户网】   资料下载   IT书店

  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)

责任编辑:cyth

文章搜索:
 相关文章
热点资讯
资讯快报
热门课程培训