Ayuda con datos en listbox

Me parece que tu primer problema se debe a la condición que estas utilizando "if found()", la cual si se cumple una vez, todos los registros después de la incidencia van a ser tomados en cuenta ya que la función <FOUND()> devuelve verdadero (.T.) Cuando la última búsqueda fue exitosa y falso (. F.) si no lo fué. En este caso, al encontrar un registro, esta siempre devolverá verdadero hasta que se realize otra búsqueda. Espero se entienda, de cualquier forma creo que existen otras formas de lograr lo que tu quieres, algunas más fáciles, te muestro un ejemplo hecho en Visual FoxPro 9.
Si tu tabla no tiene muchos registros, puedes utilizar un filtro. Estableces la propiedad <RowSourceType> a 6 - Fields y la propiedad <RowSource> a los campos de la tabla que quieres que se muestren, esto lo puedes hacer con código o desde el diseño. Después solo tienes que filtrar los datos según lo que tengas en tu "Text Box". Para este ejemplo voy a utilizar el evento <LostFocus> del "Text1", este evento se ejecuta cada vez que el Objecto pierda el enfoque.
** Para establecer las propiedades del List Box (List2)
ThisForm.List2.ColumnCount = 5
ThisForm.List2.ColumnWidths = "40, 50, 80, 100, 60"
ThisForm.List2.RowSourceType = 6
ThisForm.List2.RowSource = "Recibidos.Num_Oficio, Fecha_Oficio, Remite, Destinatario, Dep_Remit"
** Evento LostFocus del Text Box (Text1)
SELECT Recibidos
SET FILTER TO UPPER(ALLTRIM(Num_Oficio)) = UPPER(ALLTRIM(ThisForm.Text1.Value))
ThisForm. List2. ReQuery()
Si tu tabla tiene muchos registros (no se exactamente cuantos pero tu lo notarás) el programa se empieza a poner algo lento, en este caso creo que te convendría utilizar una consulta <SELECT - SQL>. Si éste es tu caso, dime para darte un ejemplo.
En cuanto tu segunda duda, el problema es que el método que estas usando (<AddListItem>) solo acepta datos de tipo caracter, por eso es que te regresa un error, aquí lo que podrías hacer es convertir la fecha a caracter con la función <DTOC()>.
ThisForm. List2. AddListItem(DTOC(Recibidos.Fecha_Oficio), x, 2)
Y en cuanto al tres, para especificar el tamaño de cada columna puedes utilizar la propiedad <ColumnWidths> del "List Box", el valor de esta debe ser de tipo carácter, debes poner el tamaño de cada columna separado por comas.
ThisForm.List2.ColumnWidths = "40, 50, 80, 100, 60"
De lo de la barra horizontal, la verdad yo no se si sea posible en un "List Box", yo no se como hacerlo, si es muy importante para ti que exista un barra de desplazamiento horizontal creo que puedes utilizar un control "Grid" en vez del "List Box".

1° Gracias por contestar
Los tips que me has dado me han sido de mucha utilidad. A lo que se refiere al tamaño de la tabla, pues si, tiene muchos registros... así que si voy a necesitar que me expliques eso de select sql... porque pss no se, y se me olvido mencionar que soy nuevo en el foro y el lenguaje... yo había programado en C#, pero por cuestiones del Servicio Social, en donde entre solo usan Foxpro, así que toy poyo en el lenguaje.. xD
Por otro lado.. lo de la barra horizontal, me dado cuenta que es imposible puesto que el listbox no cuenta con esa propiedad (scrollbar, debí haber utilizado un grid) bueno, pero eso ya lo ajuste, y ya no ay problema
gracias y espero tu respuesta... saludos

Si mira te explico un poco, lo que hace el comando SELECT - SQL> es seleccionar ciertos campos y ciertos registros de una o varias tablas que cumplan con ciertas condiciones, en el caso del Fox, esta selección de registros se guarda en una tabla temporal, un cursor, y es éste cursor el que tendrías que usar como de tu "List Box". Así cada vez que le cambien el valor al "Text Box" harías una nueva selección que concuerde con el valor introducido. Este sería el ejemplo:
** En el Evento Init puedes crear el cursor e inicializar el List Box (List2)
** El asterisco (*) indica que se seleccionarán todos los registros de la tabla Recibidos
SELECT * FROM Recibidos INTO CURSOR CurRecib
ThisForm.List2.ColumnCount = 5
ThisForm.List2.ColumnWidths = "40, 50, 80, 100, 60"
ThisForm.List2.RowSourceType = 6
ThisForm.List2.RowSource = "CurRecib.Num_Oficio, Fecha_Oficio, Remite, Destinatario, Dep_Remit"
** Evento LostFocus del Text Box (Text1)
SELECT * FROM Recibidos WHERE UPPER(ALLTRIM(Num_Oficio)) = UPPER(ALLTRIM(ThisForm.Text1.Value))
ThisForm. List2. ReQuery()

Ok... cheque con el ejemplo que pusiste y funciono... lo que preferí hacer es seccionar la tabla en varias tablas más chicas... y pss ya no se a lenta la búsqueda.. y va de maravilla
aun así, si tienes tiempo, me gustaría que me explicaras lo de select -sql-
Y ya por ultimo, para preguntarte otra cosa, ¿es mejor que te califique esta respuesta y posteriormente abrir otra pregunta o puedo hacer la pregunta aquí mismo?
Saludos