local lcCategory, lcSubcategory, lcDept, llReturn, lnI llReturn = .t. if !dodefault() llReturn = .f. endif if m.llReturn local lnSelect, lnRows, lnCols, laFields[1] lnSelect = select() && Save current alias with this lcCategory = .cCategory_Description lcSubcategory = .cSubcategory_Description lcDept = m.goApp.cDept if empty(.cCursorName) .cCursorName = "c_VisCodesLookup" endif if Get_description_from_Viscodes(m.lcCategory, m.lcSubcategory, ; m.lcDept, .cCursorName , .f., .lSystemFlag) lnRows = reccount(.cCursorName) if m.lnRows > 0 && our cursor does have rows select (.cCursorName) lnCols = afields(laFields) dimension .aRowSource [m.lnRows, m.lnCols] copy to array .aRowSource select (m.lnSelect) if .lAddBlank dimension .aRowSource[ALEN(.aRowSource,1)+1, m.lnCols] && add one more column ains(.aRowSource,1) && inserts a row for lnI =1 to m.lnCols store space(1) to .aRowSource [1, m.lnI] next endif if .lAddAll dimension .aRowSource[ALEN(.aRowSource,1)+1, m.lnCols] && add one more column ains(.aRowSource,1) for lnI =1 to m.lnCols store iif(m.lnI = 1, "<<All>>", "") to .aRowSource [1, m.lnI] next endif .rowsourcetype = 5 && Array .rowsource = "This.aRowSource" if .lAddAll or .lAddBlank .listindex = 1 endif else llReturn = .f. endif if not .lSavecursor use in select(.cCursorName) endif .AdjustWidth() else llReturn = .f. endif endwith endif return m.llReturnSuppose, my field value is blank and I do not have blank values in the array (lAddBlank property is false). When I expand the array this empty value shows at the end.