Article ID: 194573
Article Last Modified on 5/12/2003
GO BOTTOM-or-
THISFORM.grid1.SCROLLBARS = THISFORM.grid1.SCROLLBARSNote that the second command requires modification depending on the exact location of the grid in the object hierarchy.
CREATE TABLE junk (f1 c(8))
INDEX ON f1 TAG f1
SET MULTILOCKS ON
=CURSORSETPROP('buff', 5) && anything > 1
PUBLIC oform
oform = CREATEOBJECT('form1')
oform.SHOW()
DEFINE CLASS form1 AS FORM
AUTOCENTER = .T.
HEIGHT = 315
WIDTH = 415
CAPTION = "Form1"
ADD OBJECT grid1 AS GRID WITH ;
LEFT = 26, ;
RECORDSOURCE = "junk", ;
RECORDSOURCETYPE = 1, ;
TOP = 19
ADD OBJECT command1 AS COMMANDBUTTON WITH ;
TOP = 252, ;
LEFT = 156, ;
HEIGHT = 27, ;
WIDTH = 84, ;
CAPTION = "Add Record"
PROCEDURE UNLOAD
=TABLEREVERT(.T.)
USE IN junk
ENDPROC
PROCEDURE command1.CLICK
INSERT INTO junk VALUES (SYS(3))
* The following GO BOTTOM command will cause the records
* to appear
* GO BOTTOM
* Setting the value of the grid ScrollBars property to itself
* will also cause the records to appear
* THISFORM.grid1.SCROLLBARS = THISFORM.grid1.SCROLLBARS
THISFORM.REFRESH()
ENDPROC
ENDDEFINE
Additional query words: kbDSupport KBDSE kbVFP600bug kbVFp300bbug kbVFp500abug kbVFp600bug kbNoKeyWord
Keywords: kbbug KB194573