* RowColChange event *** OLE Control Event *** *** ActiveX Control Event *** With this .redraw = .f. lnRow = .Row lnCol= .Col * Test purpose _screen.Print(.TextArray(lnRow*.Cols+lnCol)+chr(13)) * Test purpose lnCols = 0 for jx = 0 to .Bands - 1 lnCols = lnCols + .Cols(jx) endfor dimension aAllData[lnCols] for ix=0 to lnCols-1 aAllData[ix+1] = .Textmatrix(lnRow, ix) endfor for ix = lnCol to 0 step - 1 lnRowBand = lnRow do while empty(.Textmatrix(lnRowBand, ix)) and lnRowBand > 0 lnRowBand = lnRowBand-1 enddo aAllData[ix+1] = .Textmatrix(lnRowBand, ix) endfor .redraw = .t. Endwith =seek(val(aAllData[2]),'myTable','PrKeyTag') ThisForm.Container1.Refresh && Fields were in containerCetin