Question

我有两个组合框，一个用来控制另一个组合框。因此，在combo_1的AfterUpdate事件中，我对combo_2进行了重新查询，以强制它根据combo_1中选择的值更新其列表。但是我的代码没有。

Private Sub combo1_AfterUpdate（）

Dim strSQL As String

Select Case Me.combo1.Column(1)
    Case "Production"
        Me.combo2.Visible = True
        strSQL = "SELECT id_prod FROM tblProd;"
        Me.combo2.ControlSource = strSQL
        Me.combo2.Requery
    Case Else
        Me.combo2.Visible = False
End Select

End Sub

当我在combo_1中选择“生产”时，combo_2中没有任何内容。执行requery子句但没有效果。

Answer 1

除非在以后的版本中更改了语法，否则应更改行

Me.combo2.ControlSource=strSQL

要

Me.combo2.RowSource=strSQL

试试看，因为它看起来不错

访问组合框重新查询

1 个答案: