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