求助组合框收缩的问题

asklove

组合框下拉很简单　Me.控件.Dropdown
但是我想在组合框里打字的时候，组合框能收缩起来
应该怎么搞啊

Henry D. Sy

你是什么时候Dropdown 的

asklove

获得焦点时　下拉
击键时　　　收缩
能不能搞？

Henry D. Sy

可以
me.recalc

asklove

6D  Recalc : 立即更新窗体上所有的计算控件。

使用me.recalc，能起到收缩的作用，但只要打上字，都替换原来的字

我的意思是　如：组合框名称　“A1“
获得焦点时　A1　下拉　me.A1.Dropdown
击键时　　　A1    收缩  me.A1.??　该怎么写
不好意思啊，老是麻烦你[:30]

Henry D. Sy

窗体上有其他控件吗

Henry D. Sy

原帖由 Henry D. Sy 于 2008-12-24 16:28 发表
窗体上有其他控件吗

如有

Private Sub Combo0_KeyPress(KeyAscii As Integer)
    Me.Text2.SetFocus
    Me.Combo0.SetFocus
    Me.Combo0.SelStart = Len(Me.Combo0.Text)
End Sub

asklove

我把例子上传一下
就　召集单位　这个组合框吧，帮我搞一下
顺便问一下
我想在打开窗体后，如果后台数据库没有链接，就自动打开链接后台数据
应该加在哪个事件里？
谢谢

Henry D. Sy

Private Sub T4_KeyPress(KeyAscii As Integer)
    Me.T3.SetFocus
    Me.T4.SetFocus
    Me.T4.SelStart = Len(Me.T4.Text)
End Sub

Henry D. Sy

应该是加载事件吧