Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Getting mixed case from _memberdata
Message
 
To
29/09/2008 14:22:25
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Vista
Network:
Windows 2008 Server
Database:
MS SQL Server
Miscellaneous
Thread ID:
01351478
Message ID:
01351578
Views:
17
Hi Jim,

>Turns out, of course, that XMLToCursor still works -- but it does not include any properties that are for sub-classed objects -- which is what I'm really looking for.
>

The _Memberdata property should be getting inherited from the base class. Unless it is getting overwritten. If you have access to the underlying class, you can still get at it's _Memberdata via the VCX table and the ParentClass property.
USE ("mybaseclasslib.vcx") ALIAS myclass IN SELECT("myclass")
LOCATE FOR objname = This.ParentClass AND EMPTY(parent)
IF FOUND()
  lcMemberData=STREXTRACT(properties,"_memberdata = ",CHR(13))
  IF LEFT(lcMemberData,1) = CHR(1)
    lcMemberData = SUBSTR(lcMemberData,517+8+1)
  ENDIF
  XMLTOCURSOR(lcMemberData)
  BROWSE LAST NOWAIT
ENDIF
USE IN SELECT("myclass")
But, as you can see, this could go on and on. It may not be worth the effort in your case.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform