PUBLIC cacs as CursorAdapter caCS = CREATEOBJECT('cursoradapter') SET MULTILOCKS ON WITH cacs .Name = 'caCACS' .Alias = 'vCACS' .AllowInsert=.T. .AllowUpdate=.T. .BufferModeOverride= 5 .CursorSchema = ; [CUSTSERID I, FR C(6) DEFAULT '', ] + ; [GRADE C(2) DEFAULT '', LOTCONTROL C(9) DEFAULT '', ] + ; [MHEAT C(4) DEFAULT '', PHEATSFX C(2) DEFAULT '', ] + ; [PROD_HEAT C(6) DEFAULT ''] .DataSourceType = 'ODBC' .DATASOURCE= SQLSTRINGCONNECT([DSN=Visual FoxPro Tables;UID=;PWD=;] + ; [SourceDB=G:\SOFTWARE\SERIAL\;SourceType=DBF;Exclusive=No;] + ; [BackgroundFetch=Yes;Collate=Machine;]) .KeyFieldList = 'CustSerID' .NoData = .T. .Prepared = .F. .SelectCmd = [select custserid, fr, grade, lotcontrol, mheat,]+ ; [ prod_heat, pheatsfx from custser WHERE custserid = ?gnCustSerID] .Tables = 'CustSer' .UpdatableFieldList = [CUSTSERID, FR, LOTCONTROL, PROD_HEAT, ] + ; [PHEATSFX, GRADE, MHEAT] .UpdateNameList =[CUSTSERID custser.custserid, FR custser.fr, ] + ; [LOTCONTROL custser.lotcontrol, PROD_HEAT custser.prod_heat, ] + ; [PHEATSFX custser.pheatsfx, GRADE custser.grade, MHEAT custser.mheat ] .UpdateType= 1 .UseCursorSchema = .T. .SendUpdates = .T. .WhereType = 3 ? .CursorFill(.T.,.T.) ENDWITH BROWSE LAST NOWAIT INSERT INTO vcacs (custserid, fr, lotcontrol, prod_heat, grade, mheat) ; VALUES (3779862, '11181', 'ND23734', 'LC2631', 'SG', '6271') ? TABLEUPDATE(1)TIA,