local llReturn do case case not pemstatus(This, '__VFPSetup', 5) This.AddProperty('__VFPSetup', 0) case This.__VFPSetup = 2 This.__VFPSetup = 0 return endcase llReturn = dodefault() *** Setup code: DO NOT REMOVE ***<SelectCmd> text to This.SelectCmd noshow select lagency.* from lagency endtext ***</SelectCmd> ***<KeyFieldList> text to This.KeyFieldList noshow AGENCYID endtext ***</KeyFieldList> ***<UpdateNameList> text to This.UpdateNameList noshow AGENCYID lagency.AGENCYID, AGENCYNUMBER lagency.AGENCYNUMBER, AGENCYNAME lagency.AGENCYNAME, TRANDATE lagency.TRANDATE, ACTIVE lagency.ACTIVE, USERID lagency.USERID endtext ***</UpdateNameList> ***<UpdatableFieldList> text to This.UpdatableFieldList noshow AGENCYNUMBER, AGENCYNAME, TRANDATE, ACTIVE, USERID endtext ***</UpdatableFieldList> *** End of Setup code: DO NOT REMOVE if This.__VFPSetup = 1 This.__VFPSetup = 2 endif return llReturnAs I said the CursorAdapter cursor is displayed.
USE lAgency SCAN INSERT INTO caAgency (AgencyNumber, ; AgencyName, ; TranDate, Active) ; VALUES (lAgency.AgencyNumber, ; lAgency.AgencyName, ; TTOD(lAgency.TranDate),1) SELECT lAgency ENDSCANThe TranDate (Date) and Active (TinyInt fields are updated correctly but the Character fields agencyNumber & agencyname (VarChar) do not get updated.