FUNCTION searchcombo LPARAMETERS toCombo,tcValue LOCAL lcCurValue,llReturn WITH toCombo lcCurValue = .DisplayValue .DisplayValue = tcValue llReturn = .ListIndex > 0 .DisplayValue = lcCurValue ENDWITH RETURN llReturn>Rich
>>FUNCTION searchcombo >>LPARAMETERS tcValue >> >>WITH myCombo >> FOR I = 1 TO .listcount >> IF .List[i] = tcValue >> RETURN I >> ENDIF >> ENDFOR >>ENDWITH >>RETURN 0 && Not Found >>