DropDownDW自动收回

[pkukevin]

PB6.5环境。

Edit中选择“Always Show List”，当控件得到焦点的时候自动弹出DropDownDW，选择一项的时候不能自动收回，必须要失去焦点才能收回。
我想实现下面两个功能：
1. 让他在输入第一个字母的时候自动弹出DropDownDW，而不是在得到焦点的时候。
2. 选择一项的时候自动收回DropDownDW（鼠标单击选择，或者按回车键选择）

请教各位高手！

[xiaozhe_song]

根据你输入的内容filter下拉内容~

[永生天地]

刚试了一把，我用的字段名是A，两个事件
1、editchanged：
if upper(dwo.name)='A' then
if len(data)=1 then
this.Modify( dwo.name+".DDDW.ShowList=Yes")
end if
end if
2、itemchanged：
if upper(dwo.name)='A' then
//if len(data)=1 then
this.Modify( dwo.name+".DDDW.ShowList=No")
//end if
end if

[pkukevin]

谢谢永生兄！
我在PB6.5中还是不行。不选中 'Edit/always show list'，然后editchanged中写了你的那段代码，输入一个字母后还是不能弹出来。我在PB11.5试了，是可以的。是不是PB6.5的问题？请问你用的哪个版本？

还有，这个功能还是不行。
2. 选择一项的时候自动收回DropDownDW（鼠标单击选择，或者按回车键选择）

[Quote=引用 2 楼 xys_777 的回复:]
刚试了一把，我用的字段名是A，两个事件
1、editchanged：
if upper(dwo.name)='A' then
if len(data)=1 then
this.Modify( dwo.name+".DDDW.ShowList=Yes")
end if
end if
2、itemchanged：
if upper(dwo.name)='A' then
//if len(data)=1 then
this.Modify( dwo.name+".DDDW.ShowList=No")
//end if
end if
[/Quote]

[永生天地]

我用10.5做的，自动收回可以
[Quote=引用 3 楼 pkukevin 的回复:]
谢谢永生兄！
我在PB6.5中还是不行。不选中 'Edit/always show list'，然后editchanged中写了你的那段代码，输入一个字母后还是不能弹出来。我在PB11.5试了，是可以的。是不是PB6.5的问题？请问你用的哪个版本？

还有，这个功能还是不行。
2. 选择一项的时候自动收回DropDownDW（鼠标单击选择，或者按回车键选择）

引用 2 楼 xys_777 的回复:
刚试了一把，我用的字段名是A，两个事件
1、editchanged：
if upper(dwo.name)='A' then
if len(data)=1 then
this.Modify( dwo.name+".DDDW.ShowList=Yes")
end if
end if
2、itemchanged：
if upper(dwo.name)='A' then
//if len(data)=1 then
this.Modify( dwo.name+".DDDW.ShowList=No")
//end if
end if

[/Quote]