FoxPro/Visual FoxPro - Ayuda con Codigo

Tengo esta ayuda en un textbox y al pulsar cualquier letra me modifica el comboBox.. Pero cuando no quiero buscar por nombre si nor codigo no funciona me podrian echar una mano...

Gracias.

LOCAL nIndex
FOR nIndex = 1 TO ThisForm.cboBuscar.ListCount
IF UPPER(ThisForm.cboBuscar.ListItem(nIndex)) => UPPER(ALLTRIM( this.Value ) )
ThisForm.cboBuscar.ListIndex = nIndex
EXIT
ENDIF
ENDFOR
ThisForm.cboBuscar.Refresh

Tal vez esto funcione...
Com fuente del combo usa un arreglo con 2 dimensiones (en una columna el codigo, el la otra el nombre), cuando quieras hacer la busqueda primero hazla sobre el arreglo en si, el numero de fila debera
coincidir con las propiedades del combo que usas.