Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Moving the Record Pointer in the Child Table
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00384193
Message ID:
00384231
Vues:
28
>I have a form that has a few key fields of the Parent view, "Nameplatv" on the upper half. On the lower half is pageframe with seven pages and each page has a grid for displaying child records. The only item in the dataenvironment is the parent view. I have code in the click event of the pageframe to load the correct view and establish the relationship to the parent only if the tab is clicked. I have this so I don't have to wait for 7 tables and their associated views to load up with the form. I also have a "Zoom Record" button that will display the currently selected record of the currently selected view, be it a child view or parent view. The click event of this button is Select (gcView) and Do Form (gcPopForm). I have nav buttons on these "child forms" to move through the child tables. My question is this, how do I properly move the record pointer through the Child Table when the user clicks the Next, Previous, First, or Last buttons.
>
>This is the click event of the "Next" button on the form class I use to display any of child tables according to the currently selected page:
>
>
>SKIP
>IF dgav.upsino<>nameplatv.upsino
>  =MESSAGEBOX("This is the Last Record",16,"Warning Message")
>  SKIP -1
>ENDIF
>THISFORM.Refresh()
>
>
>The "dgav" is the hard coded name of one of my views. I try to replace with "IF (gcView).upsino<>nameplatv.upsino" but I get a syntax error. I'm not sure this is the proper way to move through a child table.

Why not use:

Skip In (gcview)
If Eof(gcview)
..
Endif

Or

Select (gcView)
If upsino<>nameplatv.upsino
..
Endif

>Also in the grids, how do you make the currently selected record highlighted?

We use shape control making some of its color property inverted to highlight record in a grid.

>Any help appreciated.
>Thank you.
>
>Elgin Rogers Jr
>Epic Solutions
JESS S. BANAGA
Project Leader - SDD division
...shifting from VFP to C#.Net

CHARISMA simply means: "Be more concerned about making others feel good about themselves than you are in making them feel good about you."
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform