FoxPro/Visual FoxPro - Para mejorar rutina de busqueda en una tabla

Se tiene un optiongroup en el cual elijo si quiero buscar una cadena que empice o que contenga
lo que el usuario digite.

La opción busca lo que empiece por la cadena digitada por el usuario.
------------------------------------------------------------------------------------------------------------
If thisform.Optiongroup2.value=2
If ThisForm.Optiongroup1.Option1.value=1
cadena="select nombre as nom, codigo as doc from (alltrim(rutax)+'dima') "+;
"where alltrim(this.value) $ alltrim(nombre) "+;
"order by nom into cursor cur_dima"
ThisForm.List1.rowsource=cadena
nomdx=cur_dima.nom
thisform.refresh
Else
cadena="select nombre as nom, codigo as doc from (alltrim(rutax)+'dima') "+;
"where alltrim(this.value) $ codigo order by doc into cursor cur_dima"
ThisForm.List1.rowsource=cadena
nomdx=cur_dima.nom
thisform.refresh
Endif
Else
****** aqui sera lo que contenga
***************************************
If ThisForm.Optiongroup1.Option1.value=1
cadena="select nombre as nom, codigo as doc from (alltrim(rutax)+'dima') "+;
"where alltrim(nombre) LIKE ALLTRIM(this.value)+'%' "+;
"order by nom into cursor cur_dima"
ThisForm.List1.rowsource=cadena
nomdx=cur_dima.nom
thisform.refresh
Else
cadena="select nombre as nom, codigo as doc from (alltrim(rutax)+'dima') "+;
"where codigo LIKE ALLTRIM(this.value)+'%' order by doc into cursor cur_dima"
ThisForm.List1.rowsource=cadena
nomdx=cur_dima.nom
thisform.refresh
Endif
Endif

Esto funciona bien, cuando la tabla es pequeña....digan ustedes ...unos 20,000 registros pero en una tabla con 150,000 registros o mas , se hace muy lenta.

Que puedo hacer..o que rutina me pueden facilitar !!

Gracias

para optimizar tus consultas deberias crear un indice en la tabla por el campo en que usas el where , prueba y veras como cambia la velocidad de respuesta.
saludos

Gracias por contestar.

Pero si te das cuenta la consulta es SQL y segundo para qué sirve un indice si voy a buscar lo que este contenido en una campo...para nada vez !!...los indices sirven para hallar la cadena que empiece..pero no para lo que este contenido....que es lo que quiero hacer....

Alguna otra idea ?

Yo utilizo la función Seek
Solo que para este tipo de consulta, debes darte una idea de como complementar de tal forma que reducido a un solo dato buscarlo con Seek o puedes cambiarlo a un índice compuesto. Es asi como cada programador se da una idea de como dar soluciones.

Saludos

Yo utilizo la función Seek
Solo que para este tipo de consulta, debes darte una idea de como complementar de tal forma que reducido a un solo dato buscarlo con Seek o puedes cambiarlo a un índice compuesto. Es asi como cada programador trata de crear soluciones.

Saludos