Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Hellooooooooo I STILL need help with this!!!!
Message
 
 
To
30/11/2000 09:47:24
Chuck Tripi
University of Wisconsin - Milwaukee
Milwaukee, Wisconsin, United States
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00447316
Message ID:
00447333
Views:
12
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform