PUBLIC oForm

oForm = CREATEOBJECT('SeekInClick')
oForm.Show( 1 )

DEFINE CLASS SeekInClick AS form


	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT text1 AS textbox WITH ;
		Value = "Record = 5", ;
		Height =  25 , ;
		Left =  24 , ;
		Top =  12 , ;
		Width =  121 , ;
		Name = "Text1"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top =  12 , ;
		Left =  192 , ;
		Height =  25 , ;
		Width =  109 , ;
		Caption = "Command1", ;
		Name = "Command1"


	ADD OBJECT grid1 AS grid WITH ;
		Height =  181 , ;
		Left =  12 , ;
		Top =  60 , ;
		Width =  349 , ;
		Name = "Grid1"


	PROCEDURE Init
		WITH this.grid1
			.columncount =  2 
			.recordsource = 'test'
			.column1.controlsource = 'test.id'
			.column2.controlsource = 'test.Name'

		ENDWITH 
	ENDPROC


	PROCEDURE Load
		CREATE CURSOR test (ID i, name c ( 20 ))

		FOR i =  1  TO  10 
			INSERT INTO test (id, name) VALUES (i, 'Record = ' + TRANSFORM(i))
		ENDFOR 

		INDEX ON PADR(name, 20 ) TAG name

		GO TOP IN test
	ENDPROC


	PROCEDURE command1.Click
		n1=PADR(thisForm.text1.value, 20 )
		select test
		SET ORDER TO tag name
		curnear=SYS( 2001 , 'near')
		SET NEAR ON
		SEEK n1
		SET NEAR &curnear

		thisform.Grid1.refresh
	ENDPROC


ENDDEFINE