Hi
here is the code of Init Event of CA
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()
text to This.SelectCmd noshow
Select * from Region
endtext
text to This.UpdateNameList noshow
RCODE Region.RCODE, DESCR Region.DESCR
endtext
text to This.UpdatableFieldList noshow
RCODE, DESCR
endtext
text to This.ConversionFunc noshow
DESCR RTRIM
endtext
if This.__VFPSetup = 1
This.__VFPSetup = 2
endif
return llReturn
Thanks
Anwar