>CLEAR >CLOSE DATABASES all >SET MULTILOCKS ON > >CREATE CURSOR foo (f1 I, f2 c(10)) > >INSERT INTO foo VALUES (1,"1") >INSERT INTO foo VALUES (2,"2") >INSERT INTO foo VALUES (3,"3") >CURSORSETPROP("Buffering",3) > >LOCAL oCA as CursorAdapter > >oCA=CREATEOBJECT("CustomUpdateCA") >oCA.CursorAttach("foo") >oCA.UpdatableFieldList="f1,f2" > >GO 2 >replace f2 WITH "New_2" >?"Before SKIP" >SKIP >?"After SKIP" >GO 3 >DELETE >?"Before SKIP" >SKIP -1 >?"After SKIP" >APPEND BLANK >?"Before SKIP" >SKIP -1 >?"After SKIP" > > >DEFINE CLASS CustomUpdateCA AS CursorAdapter > > InsertCmdDataSourceType="Native" > UpdateCmdDataSourceType="Native" > DeleteCmdDataSourceType="Native" > > InsertCmd="this.CustomInsert()" > UpdateCmd="this.CustomUpdate()" > DeleteCmd="this.CustomDelete()" > > FUNCTION CustomInsert() > ?PROGRAM() > ENDFUNC > > FUNCTION CustomUpdate() > ?PROGRAM() > ENDFUNC > > FUNCTION CustomDelete() > ?PROGRAM() > ENDFUNC >ENDDEFINE > >