Găsiți un element într-o grilă vfp

găsiți un element într-o grilă vfp

// Use this if you need find and select an item from a grid on vfp 9
// Make sure you put the right name of the textbox, the grid, and the column
//your'e searching for :)

PRIVATE strItem
STORE THISFORM.TEXTBOX.Value to strItem
SELECT (THISFORM.Grid1.RecordSource)
LOCATE FOR yourcolumn = strItem
IF FOUND() = .T.
	THISFORM.Grid1.SetFocus
ENDIF