CLEAR ERROR CLEAR CREATE CURSOR x1 (P1 i, F1 L, t1 T) INSERT INTO x1 (P1,F1) VALUES(1,.F.) loCAP = CREATEOBJECT("Ca1") loCAP.CURSORFILL(.F.,.F.) SELECT x1 REPLACE F1 WITH .T. BROWSE LAST NOWAIT SELECT x2 REPLACE F1 WITH .T., t1 WITH DATETIME() BROWSE LAST NOWAIT ?"ConflictChecktype = 0" CLEAR ERROR ?"TABLEUPDATE _TALLY GETFLDSTATE(-1)" ?TABLEUPDATE(1,.F.,ALIAS(),laErr),_TALLY,GETFLDSTATE(-1) DISPLAY MEMORY LIKE laErr AERROR(laErr) DISPLAY MEMORY LIKE laErr ?"ConflictChecktype = 1" loCAP.CONFLICTCHECKTYPE = 1 CLEAR ERROR REPLACE F1 WITH .T., t1 WITH DATETIME() ?TABLEUPDATE(1,.F.,ALIAS(),laErr),_TALLY,GETFLDSTATE(-1) DISPLAY MEMORY LIKE laErr AERROR(laErr) DISPLAY MEMORY LIKE laErr DEFINE CLASS Ca1 AS CURSORADAPTER SENDUPDATES = .T. ALLOWUPDATE = .T. ALIAS = "x2" SELECTCMD = "SELECT * from x1" TABLES = 'x1' KEYFIELDLIST = "P1" UPDATABLEFIELDLIST = "T1 F1" UPDATENAMELIST = "P1 x1.P1, F1 x1.F1, T1 x1.T1" USECURSORSCHEMA = .F. DATASOURCETYPE = "Native" WHERETYPE = 3 BUFFERMODEOVERRIDE = 5 CONFLICTCHECKTYPE = 0 ENDDEFINE &&Ca1 as cursoradapter