5,139
社区成员
发帖
与我相关
我的任务
分享帮忙给看看?
刚学做vba,请各位给看看这个代码
Private Sub Combo39_AfterUpdate()
Me.Combo44 = Null
End Sub
Private Sub Combo44_GotFocus()
Me.Combo44.RowSource = "SELECT id,deport FROM ks WHERE (ldmc=" + Me.Combo39.Value + ")"
End Sub
运行后,当我点Combo44时,弹出一个对话框,还让我输入参数(Combo39的值),如何才能在Combo44中直接显示我查询出的值呢?Combo39为文本,如"李四"
Private Sub Combo39_AfterUpdate()
Me.Combo44 = Null
End Sub
Private Sub Combo44_GotFocus()
Me.Combo44.RowSource = "SELECT id,deport FROM ks WHERE (ldmc=" + Me.Combo39.Value + ")"
End Sub
运行后,当我点Combo44时,弹出一个对话框,还让我输入参数(Combo39的值),如何才能在Combo44中直接显示我查询出的值呢?Combo39为文本,如"李四"
...全文
请发表友善的回复…
发表回复
northwolves 2005-12-28
- 打赏
- 举报
try:
Private Sub Combo39_AfterUpdate()
Me.Combo44.RowSource = "SELECT id,deport FROM ks WHERE (ldmc=" + Me.Combo39.Value + ")"
End Sub
Private Sub Combo39_AfterUpdate()
Me.Combo44.RowSource = "SELECT id,deport FROM ks WHERE (ldmc=" + Me.Combo39.Value + ")"
End Sub
