Como borro el arreglo utilizado en un combobox?

[Erick Almanza]

Hola amigos

Por favor si alguien me indica como borrar los elementos de un arreglo utilizado en un combobox en tiempo de ejecucion. Actualmente puedo agregar; no logro eliminar los anteriores.

La idea es que dependiendo de la clasificacion lleno el arreglo de acategoria




EJEMPLO:
REDEFINE COMBOBOX o1 var XCLASIFICACION id 19 of odlg ;
ITEMS ACLASE ;
ON CHANGE ARREGLA1(xCLASIFICACION,@osele,@acategoria,@XSELE)

REDEFINE COMBOBOX oSELE var XSELE id 20 of odlg ;
ITEMS aCategoria

...................

FUNC ARREGLO1(xCLASIFICACION,osele,acategoria,XSELE)

aCategoria:={ }

IF XCLASIFICACION="PROVINCIA"
osele:add("Panama" )
osele:add("Cocle" )

ELSEif XCLASIFICACION="PAIS "
osele:add("COSTA RICA" )
osele:add("COLOMBIA" )
ENDIF
osele:refresh()

RETURN(NIL)



Saludos,

erick almanza
FW805,XHARBOUR 1.10, BCC55, MYSQL

[ADBLANCO]

oCbx:setitems({})

[ADBLANCO]

asTipacc:={}

oTIPACC:setitems(adTipacc)