求教:组合框控件输入代码(数字)显示相应内容
如:组合框有“教授”、“副教授”……输入“01”显示“教授”;输入“02”显示“副教授”……
谢谢!
------解决方案--------------------------------------------------------
我的方法是在Combobox的LostFocus里写如下代码:(我做成的效果是显示时第一列为代码,第二列为代码意义,而Combobox的DisplayValue显示的是第一列的,所以Combobox的数据源是做成三列,代码意义,代码,代码意义,然后把第一列的列宽设为0)
LOCAL liI as Integer
FOR liI = 1 TO This.ListCount && 如果你的有效列表项不是从1开始,请自行修改
IF This.DisplayValue = ALLTRIM(This.List( liI, 1 ))
EXIT
ENDIF
IF This.DisplayValue = ALLTRIM(This.List( liI, 2 ))
This.DisplayValue = This.List( liI, 1 )
EXIT
ENDIF
ENDFOR
IF ( liI > This.ListCount ) AND ( ! EMPTY( This.DisplayValue ) )
MESSAGEBOX("Input Error!", 0+16+0, "Error")
NODEFAULT
RETURN .F.
ENDIF