gracias me ayudo pero podria preguntarte como podria hacer para que trabaje en la segunda columna ya que la primera lleva codigo y la segunda descripcion envio el codigo que me proporcionaste gracias amigo
LOCAL nIndex, oList && prevent conflict with other variables
oList = thisform.List1 && create object reference to list box
FOR nIndex = 1 TO oList.ListCount && loop through each item
* compare the item in the list with the string entered
IF UPPER( oList.ListItem(nIndex) ) = UPPER( ALLTRIM( this.Value ) )
oList.ListIndex = nIndex && select this item if matched
EXIT && drop out of loop
ENDIF
ENDFOR
oList.Refresh && update the display to show selected item
