Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Hellooooooooo I STILL need help with this!!!!
Message
 
 
À
30/11/2000 09:47:24
Chuck Tripi
University of Wisconsin - Milwaukee
Milwaukee, Wisconsin, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00447316
Message ID:
00447333
Vues:
20
Chuck,
To start with, GO TOP and GO BOTTOM do not trigger the BOF() and EOF() respectively. They put you on the first and last record. Because you want to display information, you'll need two flags instead of one. You'll also need to update the flags in the other code. Add a lBOF flag to THISFORM and set it appropriately as you do in your Next button. Also, reset lBOF and lEOF in each button because the navigation may affect the other flag.

HTH.

P.S. IMO, it is not appropriate to ask for a COMPLETE example so you can cut and paste. I'm here to provide assistance, if I can; I do not participate here so I can do your work for you.

>(Form Refresh method)
>WITH ThisForm.CommandGroup1
> .Command1.ENABLED = .NOT. BOF('Person')
> .Command2.ENABLED = .NOT. BOF('Person')
> .Command3.ENABLED = .NOT. Thisform.lEOF
> .Command4.ENABLED = .NOT. ThisForm.lEOF
>ENDWITH
>
> ( |< )
>GO TOP IN person
>ThisForm.REFRESH()
>
> ( < )
>IF NOT BOF('person')
> SKIP -1 IN person
>ENDIF
>ThisForm.REFRESH()
>
> ( > )
>IF NOT EOF('person')
> SKIP 1 IN person
>ENDIF
>Thisform.leof= EOF('Person')
>IF EOF('person')
> GO BOTTOM IN Person
>ENDIF
>ThisForm.REFRESH()
>
> ( >| )
>GO BOTTOM IN person
>ThisForm.REFRESH()
>
>This is for VFP 6.0 and what I want to do is disable the buttons when it reach the top or bottom. The |< and >| aren't doing it, but the < and > disables the two buttons, however, it does not enable it back when going the other way. If this coding is bad, please fix this or create a new set of coding (and make it a complete, since I would be coping/pasting the codes). The 'person' is the parent table and the 'auth' is the child table (grid). Thank you.
>
>Chuck
Larry Miller
MCSD
LWMiller3@verizon.net

Accumulate learning by study, understand what you learn by questioning. -- Mingjiao
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform