Terry,
I see that in TextBox Valid you set SET EXACT ON, but in Combo SET EXACT is OFF, what happens if you change both to be OFF?

>Hi All.
>
>I have 2 similar combos, each accompanired by a text box. The idea is if you select a descripton value from the drop-down, its assoc. key value (code) is displayed in the text box.
>
>Similarly, if the user just enters the code in the text box, the assoc desc is displayed in the combo.
>
>THe code for each is practically identical, although I've put in the odd tweak and several perm's to get it to work.
>
>Thing is, the recordsource of one (Operator) is numeric, whereas the other's (Family) is char.
>
>The char set-up works fine but, when I enter a numeric code in the operator text box, the combo is displayed in selected highlight, but with no text showing. I f I do it slowly in debug, I can se the combo, remaing unselected, with the correct val in, then it flips to the above.
>
>Record source for both combos are of the form:
>
>Table.Code, Desc
>
>The code for each is below. Any ideas? 'ppreciate it.
>
>Terry
>
>

>* Code for Text Box .Valid() for Operator - Numeric key val - the problem
>* _________________
>LOCAL	lcExactSet
>
>lcExactSet		    = SET( "Exact")
>Set Exact Off
>If not INDEXSEEK( This.Value, .T., "OPERATOR", "CODE")	&& If not find this Operator no in Operators table
>    = MESSAGEBOX(	"Sorry, Operator " + ALLTRIM( STR( This.Value)) + " does not exist.", ;
>		MB_ICONSTOP, "Operator does not exist")
>    With Thisform
>      .cmdPreview.enabled	    = .F.
>      .cmdPrint.enabled	    = .F.
>    EndWith 	  	
>Else
>    With Thisform
>      With .cboOperators
>* For Now>.Requery()  && Cos didn't work WITH it
>	.Value 		    = This.value
>      EndWith
>      If  .lValidStart;
>      and .lValidEnd
>          .cmdPreview.enabled  = .T.
>	.cmdPrint.enabled     = .T.
>      EndIf
>  EndWith
>Endif
>Set Exact &lcExactSet
>
>

>
>

>* Code for Text Box .Valid() for Family - Char data - OK
>* _________________
>LOCAL	lcExactSet
>
>lcExactSet		     = SET( "Exact")
>Set Exact On
>If not INDEXSEEK( ALLTRIM( This.Value), .T., "FAMILY", "CODE")	&& If not find this Family no in Family table
>    = MESSAGEBOX(	"Sorry, Family " + ALLTRIM( This.Value) + " does not exist.", ;
>		MB_ICONSTOP, "Family does not exist")
>    With Thisform
>      .cmdPreview.enabled	     = .F.
>      .cmdPrint.enabled	     = .F.
>    EndWith 	  	
>Else
>    With Thisform
>      With .cboFamilies
> 	.Requery()
> 	.Value 		     = This.value
>      EndWith
>      If  .lValidStart;
>      and .lValidEnd
>	  .cmdPreview.enabled  = .T.
>	  .cmdPrint.enabled    = .T.
>      EndIf
>    EndWith
>Endif
>Set Exact &lcExactSet
>