我想在表单里设置一个下拉，比如计量单位选择，个，只，件，等等，又想没有想到的可以自己输入， 设计了一下拉框，可以选择，虽然可以输入，但输入的内容不能被使用，比如输入一个 条，按回车后，就看不到了。哪位高手指导下，是不是哪里没设置好

可以建立临时表 create cursor ... 把下拉框的数据源指向这个临时表
当下拉框新增内容后,可以在事件中增加检测代码,
一旦检测到新内容不在临时表中,则临时表中增加一条记录.

组合框keypress事件加代码:

LPARAMETERS nKeyCode, nShiftAltCtrl
if nkeycode=13
    lexist=.T.
    FOR i=1 TO this.ListCount 
        IF ALLTRIM(this.List(i))=ALLTRIM(this.DisplayValue )
            lexist=.F.
            exit
        ENDIF
    endfor    
    IF lexist
        this.AddItem(this.DisplayValue)
    endif        
endif    
    

可以用回车键添加新的项

Combobox的Style=2 就是下拉列表框，不能输入的。

楼主如果担心有些单位在下拉列表框里不存在
可以在下拉列表用一个'其它'项代替
当用户选择'其它'项的时候
显示一个文本框让用户输入.

谢谢

太好了，非常好用，直接用你的代码就好了