感謝樓上,請現場指導,拜謝

c_pzwhfiellist=""

c_pzwhbglist=""

For i=1 To Fcount()-1

c_pzwhfiellist=c_pzwhfiellist+Field(i)+","

c_pzwhbglist=c_pzwhbglist+Field(i)+Space(1)+"pzwhk."+Field(i)+","+Chr(10)

Endfor

c_pzwhfiellist=c_pzwhfiellist+Field(Fcount())

c_pzwhbglist=c_pzwhbglist+Field(Fcount())+Space(1)+"pzwhk."+Field(Fcount())

CursorSetProp("tables","pzwhk","pzwh_k") &&設置臨時表的更新目標表

CursorSetProp("keyfieldlist","xh","pzwh_k")??&&設置臨時表的關鍵字

CursorSetProp("UpdateType",1,"pzwh_k")??&&設置用新數據更新舊數據

CursorSetProp("updatablefieldlist",c_pzwhfiellist,"pzwh_k") &&設置臨時表的更新字段

CursorSetProp("updatenamelist",c_pzwhbglist,"pzwh_k") &&&用cyjp_gk中的相應字段更新cyjpgk表

CursorSetProp("sendupdates",.T.,"pzwh_k")

CURSORSETPROP("WhereType",1,"pzwh_k") &&更新SQL語句中where子句包含主關鍵字與被修改過的字段

CursorSetProp("Buffering",3, "pzwh_k") &&設置表緩沖

CursorSetProp("BatchUpdateCount",50,"pzwh_k") &&發送到緩沖表的遠程數據源的更新指令的數目

CURSORSETPROP("CompareMemo",.t.,"pzwh_k")

CURSORSETPROP("FetchMemo",.t.,"pzwh_k")

Tableupdate(.T.,.T.,'pzwh_k')