* BeforeRowColChange lparameters nColIndex local ix,lnColIndex for ix=1 to this.Columncount if this.Columns(ix).ColumnOrder = nColIndex lnColIndex = ix exit endif endfor with this.Columns(lnColIndex).Controls(2) && Not trustable all the time .Value = .Value if .Value ... && Check nodefault && Not valid *...Cetin