Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Cursoradapter with field aliases
Message
De
21/03/2007 08:26:32
Mike Yearwood
Toronto, Ontario, Canada
 
 
À
21/03/2007 07:41:09
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
01206438
Message ID:
01206454
Vues:
22
Hi Peter

Just FYI, but check out text...endtext. I think it's much better than adding all the ' and +. You can just copy and paste a working sample right between the TEXT...ENDTEXT - no formatting.
o=CREATEOBJECT('cursoradapter')
TEXT TO o.SelectCmd TEXTMERGE NOSHOW PRETEXT 15
SELECT Dactauth.actauth_id,;
Dactauth.actsect_id,;
Dactauth.fund_id,;
Dactauth.counsel_id,;
Dactauth.date AS AuthorizationDate,;
Dactauth.amount AS AuthorizationAmount,;
Dactauth.allocamt AS AllocationAmount,;
Dactauth.allocdate AS AllocationDate,;
Dactauth.closed,;
Dactauth.comments,;
Dactauth.insdttm,;
Dactauth.insuser_id,;
Dactauth.upddttm,;
Dactauth.upduser_id,;
Dfund.fundno,;
Dfund.fintype_id,;
Dcounsel.bndconcd,;
Dact.act,;
Dactsect.sectname AS sectionname,;
Dactsect.amount AS sectionamount,;
Dact.act_id ;
 FROM ;
   kba_data!dact ;
  INNER JOIN kba_data!dactsect ;
 ON  Dact.act_id = Dactsect.act_id ;
  INNER JOIN kba_data!dactauth ;
 ON  Dactsect.actsect_id = Dactauth.actsect_id ;
  INNER JOIN kba_data!dfund ;
 ON  Dfund.fund_id = Dactauth.fund_id ;
  INNER JOIN kba_data!dcounsel ;
 ON  Dcounsel.counsel_id = Dactauth.counsel_id
ENDTEXT
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform