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 * from Region endtext ***</SelectCmd> ***<UpdateNameList> text to This.UpdateNameList noshow RCODE Region.RCODE, DESCR Region.DESCR endtext ***</UpdateNameList> ***<UpdatableFieldList> text to This.UpdatableFieldList noshow RCODE, DESCR endtext ***</UpdatableFieldList> ***<ConversionFunc> text to This.ConversionFunc noshow DESCR RTRIM endtext ***</ConversionFunc> *** End of Setup code: DO NOT REMOVE if This.__VFPSetup = 1 This.__VFPSetup = 2 endif return llReturnThanks