>AAdd( aKeys, IDALTF.ELREF )
>
>Remember, I'd like to leave these calls unchanged...
>
>TIA
>
>Larry
It shouldn't be too hard, as long as you aren't trying to implement sparse arrays. ALEN() can be used to determine the current size of the array (get the # rows, # cols), use DIMENSION to redimension the array to add a row (this will create a row filled with logical .F. as the last row of the array, and then for each column in the array, replace the equivalent column of the last row with the parameter corresponding to the position. The arrray must be passed by reference explicitly. A brain-dead simpl example:
FUNCTION AddAnArrayRow
lparameter taarray, tuarg1, tuarg2, tuarg3, tuarg4
local ncol, nrow
ncol = ALEN(taarray,2)
nrow = alen(taarray,1)
dimension taarray[nrow+1, ncol]
local nCtr
FOR nCtr = MIN(ncol,4)
taarray[nrow+1,nCtr] = EVAL('tuarg'+str(cNtr,1))
ENDFOR
RETURN .t.
DIMENSION myArray[1,2]
MyArray[1,1] = 'First'
MyArray[1,2] = 'Second'
=AddAnArrayRow(@MyArray,3,'Four')
=AddAnArrayRow(@MyArray,'Five',6.000)
