Thanks Charles

I tried this in combo's init event but the combo is blank, what's wrong ?

DIMENSION aCompcode[1]
SELECT dist(compcode) FROM DBF() INTO ARRAY aCompCode
FOR each aCompcode in aCompcode
	This.AddItem(&aCompcode)
ENDFOR 
This.Requery

txs