Una alternativa no muy elegante pero rápida podría ser:
En el evento KeyPress del control TextBox

IF nKeyCode = 13
	ThisForm.List1.AddListItem (this.Value)
ENDIF

Y en el evento GotFocus del control Listview

DODEFAULT()
IF LASTKEY() = 13
	ThisForm.Text1.value = ""
	ThisForm.Text1.SetFocus 
ENDIF

Asumo que en el tab order del Form esta primero el TextBox y a continuación el Listview. Si el usuario aprenta ENTER se dispara el primer evento.
Saludos

>un saludo a toda la comunidad,gracias de antemano por su ayuda
>tengo un text y un list,bajo la informacion del text al list pero quiero que no pierda el enfoque el text de tal manera que el usuario pueda seguir ingresando datos en el text y sin que tenga que estar borrando el dato anterior del text
>o sea que baje la informacion ,retorne el puntero y se limpie el text para ingresar otro dato...
>

>&&&&&valid text2
> select productos
>   set order to keyprod
>   seek (this.value)
>    if len(allt(this.value)) > 0
> if found()
>   THISFORM.CHECK1.VALUE=1
>      thisform.cargarproducto
>        THISFORM.CARGARLISTA
>        THISFORM.CALCULA
>        RETURN .t.
>
>THISFORM.TEX2.VALUE=''
>  ELSE
>  =MESSAGEBOX('este producto no existe',256,'aviso',5)
>  RETURN 0
>