Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Need Grid to Show All Child Records that Match Parent Ke
Message
De
01/12/2005 12:37:57
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Versions des environnements
Visual FoxPro:
VFP 8
Database:
Visual FoxPro
Divers
Thread ID:
01073370
Message ID:
01073839
Vues:
46
>Thank you, Terry, but my policy is to only use material that I think of on my own. I wish that I had thought of yours.
> I finally got my grid to work using the following code:

But you don't mind plaguarising others' code? :-)
Hey, your "Village" audience won't know! I once went to a comedy club in the Village, I think, called the Boston Comedy Club (strangely I'd just come from Boston). This was just before hostilities in the first Gulf War.
My first visit to such and I was early, and didn't know better than to be seated right at the front.
The commedian came around to the front rowers - "Hi. Where you from?.." - the usual.

To me - "You're from England? Hey you guys are really helping us out in the Gulf there.... thanks for the tent!"

I thought "You cheeky git" but he'd whipped the mike away and gone to the next victim before I could respond with "Well you helped us out in the Falklands ... thanks for the Gattling Gun!"

Below is cool. I just try to avoid writing code as much as possible, myself.
>
>*Init
>LPARAMETER tuParm1
>
>SELECT Child2
>SET ORDER TO Child2Index
>
>SELECT Child1
>SET ORDER TO Child1Index
>SET RELATION TO Child1RelnField INTO Child2
>
>SELECT Parent
>SET RELATION TO ParentRelnField INTO Child1
>SET SKIP TO Child1, Child2
>
>ThisForm.grid1.RecordSource = "Child1"
>ThisForm.grid1.RecordSourceType = 0
>thisform.grid1.column1.ControlSource = "Child2.Field1"
>thisform.grid1.column2.ControlSource = "Child1.Field1"
>*etc.
>
>SEEK tuParm1 IN Parent
- Whoever said that women are the weaker sex never tried to wrest the bedclothes off one in the middle of the night
- Worry is the interest you pay, in advance, for a loan that you may never need to take out.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform