Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Cursoradapter with field aliases
Message
From
21/03/2007 08:26:32
Mike Yearwood
Toronto, Ontario, Canada
 
 
To
21/03/2007 07:41:09
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
01206438
Message ID:
01206454
Views:
24
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform