*** Setup code: DO NOT REMOVE if not pemstatus(This, '__VFPSetup', 5) This.AddProperty('__VFPSetup', 1) This.Init() endif *** End of Setup code: DO NOT REMOVEwith the next
DEFINE CLASS EmptyCA AS CursorAdapter FUNCTION AutoOpen() NODEFAULT RETURN this.CursorFill(.F.,.T.) ENDFUNC ENDDEFINEI think that at least This.Init() shoud be added too.