【发布时间】:2011-04-18 06:40:59
【问题描述】:
我有两个组合框,一个用于控制另一个。因此,在combo_1 的AfterUpdate 事件中,我对combo_2 进行了重新查询,以强制它根据combo_1 中选择的值更新其列表。但我的代码没有。
私有子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
结束子
当我在combo_1 中选择“生产”时,combo_2 中没有任何内容。 requery 子句已执行,但没有效果。
【问题讨论】: