/*********************************************************/
Procedure SearchChange()
/*********************************************************/
Local cTxt, nLen, i, nUltReg
cTxt := GetProperty( 'Form_1' , 'Text_1' , 'Value' )
nLen := Len( cTxt )
nCol:= Form_1.Grid_1.Value[2]
Form_1.Grid_1.DeleteAllItems
// Procura o texto
For i := 1 To Len( aRows )
If Upper( cTxt ) = Upper( Left( aRows [ i ] [ nCol ] , nLen ) )
Form_1.Grid_1.AddItem ( aRows [ i ] )
Endif
Next
nUltReg:=Form_1.Grid_1.ItemCount
Form_1.Grid_1.Value:={nUltReg,nCol}
Return
Abraços,
