子窗体没有获得焦点为，为什么会自动下拉？

13601812106_01

我在《IPQC巡检报告》中输入数据后，在其子窗体的“项目检查”中，没有获得焦点，也会自动下拉，出现选项。我设置如下，我需要在“机台”输入后，再出现。
Private Sub 检查项目_GotFocus()
检查项目.RowSource = "SELECT 项目来源.检查项目, 项目来源.测量仪器, 项目来源.序号 FROM 项目来源"
Me.检查项目.Requery
Me.检查项目.Dropdown
End Sub

andymark

把主窗体的子窗体删除后再重建子窗体

13601812106_01

谢谢你，不过，还是不行，只要把“检查项目”放在子窗体的第一位，就会出现那个自动获焦的问题

xie62

Private Sub 检查项目_GotFocus()
检查项目.RowSource = "SELECT 项目来源.检查项目, 项目来源.测量仪器, 项目来源.序号 FROM 项目来源"
Me.检查项目.Requery
'Me.检查项目.Dropdown将其去掉；试一试
End Sub

layaman_999

子窗体中加一句代码：
Private Sub Form_Load()
Me.数量.SetFocus
End Sub

13601812106_01

xie62 发表于 2012-6-26 14:04
Private Sub 检查项目_GotFocus()
检查项目.RowSource = "SELECT 项目来源.检查项目, 项目来源.测量仪器,  ...

不过，这样下拉功能就没有了

13601812106_01

layaman_999 发表于 2012-6-26 14:24
子窗体中加一句代码：
Private Sub Form_Load()
Me.数量.SetFocus

可是这样一来，当主表输完后，“检查项目”就不能主动获得焦点了

13601812106_01

13601812106_01 发表于 2012-6-26 17:18
可是这样一来，当主表输完后，“检查项目”就不能主动获得焦点了

怎样才能让他再次回到焦点中来

layaman_999

子窗体中加入函数:
Private Sub cGotFocus()
检查项目.RowSource = "SELECT 项目来源.检查项目, 项目来源.测量仪器, 项目来源.序号 FROM 项目来源"
Me.检查项目.Requery
'Me.检查项目.Dropdown将其去掉；试一试
End Sub
Private Sub 检查项目_GotFocus

13601812106_01

layaman_999 发表于 2012-6-26 17:32
子窗体中加入函数:
Private Sub cGotFocus()
检查项目.RowSource = "SELECT 项目来源.检查项目, 项目来源 ...

谢谢你，不过还是不行啊。