Pesquisa letra-a-letra em campo Data

[Toledo]

Fernando, basta usar a propriedade ItemCount da grid:

Código: Selecionar todos

/*********************************************************/
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,