Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Getting mixed case from _memberdata
Message
 
À
29/09/2008 14:22:25
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Vista
Network:
Windows 2008 Server
Database:
MS SQL Server
Divers
Thread ID:
01351478
Message ID:
01351578
Vues:
18
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.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform