Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Need Grid to Show All Child Records that Match Parent Ke
Message
From
01/12/2005 12:37:57
 
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Environment versions
Visual FoxPro:
VFP 8
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01073370
Message ID:
01073839
Views:
45
>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.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform