[求助]组合框的问题

todaynew

Private Sub Command4_Click()
Select Case Me.Command4.Caption
    Case "改为数字"
        Me.Combo0.RowSource = "SELECT Tbl.数字型 FROM Tbl;"
        Me.Command4.Caption = "改为文本"
    Case "改为文本"
        Me.Combo0.RowSource = "SELECT Tbl.文本型 FROM Tbl;"
        Me.Command4.Caption = "改为数字"
End Select
Me.Combo0.Value = Null
End Sub

Private Sub Form_Load()
Me.Combo0.RowSource = ""
Me.Command4.Caption = "改为文本"
Call Command4_Click
End Sub

todaynew

轻风 发表于 2011-11-2 16:58
怪了，我怎么不行？

先要把组合框的数据源清空。至于为何如此，我也说不明白。

todaynew

轻风 发表于 2011-11-3 10:49
附件中两个库，Database1.mdb是我的程序提取出来并简化的，Database.mdb是老汉那个方法做的，同样的先按一下 ...

两个实例我试着都没问题。

你的实例中有一个引用我测试的时候丢失了。我把这个引用没要，不知道是不是这个引用也引起这个问题？

todaynew

轻风 发表于 2011-11-3 15:22
这现象越来越奇怪了，在我的那个例子中，打开窗体后，只要鼠标划过那个组合框后（不用点击，也不用获得焦点 ...

估计是微软设计时的毛病。