Article ID: 193414
Article Last Modified on 5/12/2003
CREATE TABLE testtab (f1 c(5), f2 c(5))
FOR lni = 1 TO 5
INSERT INTO testtab (f1, f2) ;
VALUES (PADL(ALLTR(STR(lni)),5, '0'), ;
SUBSTR(SYS(3), 4, 5))
ENDFOR
GO TOP
PUBLIC oForm
oForm = CREATEOBJECT('form')
oForm.ADDOBJECT('grid1','grid')
oForm.grid1.COLUMNCOUNT = 2
oForm.grid1.VISIBLE = .T.
oForm.ADDOBJECT('text1','textbox')
oForm.text1.TOP = 225
oForm.text1.VISIBLE = .T.
oForm.text1.TABINDEX = 1
oForm.ADDOBJECT('text2','textbox')
oForm.text2.TOP = 225
oForm.text2.LEFT = 150
oForm.text2.VISIBLE = .T.
oForm.text2.TABINDEX = 2
oForm.SHOW
oForm.SETALL("sparse",.F.)
WAIT WINDOW "Textboxes in Grid will not be refreshed" TIMEOUT 1
oForm.SETALL("backcolor",RGB(255,0,0),"textbox")
oForm.Refresh()
oForm.grid1.SetFocus()
oForm.grid1.ScrollBars = oForm.grid1.ScrollBars
Additional query words: kbVFp300bbug kbVFp500abug kbVFp600bug kbOOP kbContainer kbCtrl
Keywords: kbbug kbnofix kbcode KB193414