IF .lAddAll AND ASCAN(.aRowSource, "<<All>>",1,-1,1) = 0 lnCols = ALEN(.aRowSource,2) DIMENSION .aRowSource[ALEN(.aRowSource,1)+1, m.lnCols] && add one more row AINS(.aRowSource,1) FOR lnI = 1 TO m.lnCols STORE IIF(m.lnI = 1, "<<All>>", "%") TO .aRowSource [1, m.lnI] NEXT ENDIFThe problem is, that one of the columns is numeric type value.