FoxPro/Visual FoxPro - addlistitem

hola amigos de la web tengo unas dudas

n=thisform.list2.listcount+1
thisform.list2.addlistitem("hola",n,1)
thisform.list2.addlistitem("Fernando",n,2)
thisform.list2.addlistitem("Como estas",n,3)

supongamos que agrego tres elementos

luego elimino uno
thisform.list2.removeitem(thisform.list2.listindex)
luego agrego otro
y me lo encima en el ultimo por que?

gracias

*y me lo encima en el ultimo por que?

Porque asi es, no fue progrmado para añadir como tu quieres.

Lo que haria en tu caso es poner en el INIT de la forma algo asi:

public array elementosList(3)

elementosList(1)="ROMAN"
elementosList(2)="GERARDO"
elementosList(3)="SUAZO"
THISFORM.LIST1.ROWSOURCETYPE=5
THISFORM.LIST1.ROWSOURCE="elementosList"

Y en el boton de añadir algo asi:

LOCAL ARRAY TempElementosList[ALEN(elementosList)+1]
LOCAL cValorList, e_code

ACOPY(elementosList,TempElementosList)
AINS(TempElementosList,THISFORM.LIST1.LISTINDEX+1 )
TempElementosList(THISFORM.LIST1.LISTINDEX+1)="MiValor"

e_code=0
ON ERROR e_code=ERROR()
RELEASE elementosList

PUBLIC ARRAY elementosList[ALEN(TempElementosList)]
ACOPY(TempElementosList,elementosList)
THISFORM.LIST1.REQUERY()

ON ERROR