You could also make the row source an array. You can add rows to the array by redimensioning the array:
for example:
LOCAL llRetVal
llRetVal = DODEFAULT()
IF llRetVal
WITH THIS
DIMENSION .aChoice[4,2]
.aChoice[1,1] = "Very bad"
.aChoice[1,2] = "3"
.aChoice[2,1] = "Bad"
.aChoice[2,2] = "2"
.aChoice[3,1] = "Good"
.aChoice[3,2] = "1"
.aChoice[4,1] = "very good"
.aChoice[4,2] = "4"
.BOUNDCOLUMN = 2
.ROWSOURCETYPE = 5
.ROWSOURCE = "THIS.aChoice"
ENDWITH
ENDIF
RETURN llRetVal
Weedz
veld4663@exact.nl
'It never hurts to help...' - Eek the cat.