(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
Today is tomorrow's yesterday.