中科新闻网公路重大设计变更:我想实现的是如何在Combo1_Click()下.执行一个功能
来源：百度文库 编辑：中科新闻网 时间：2024/05/07 17:06:48
Private Sub Combo1_Click()
Select Case Combo1.Text
Case "Combo1.Text"
rsbian.Open "select * from bian where bianhao like '" & Trim(Combo1.Text) & "%' ", Con, adOpenStatic, adLockOptimistic
Text10.Text = rsbian.Fields!renming
End Select
End Sub
每次我选择下面的一个内容时候.就会在Text10.Text中显示我希望显示的数据,但是我不知道Combo1.Text的这个值如何赋值才可以区别我下拉列表中选择的数据啊.
Select Case Combo1.Text
Case "Combo1.Text"
rsbian.Open "select * from bian where bianhao like '" & Trim(Combo1.Text) & "%' ", Con, adOpenStatic, adLockOptimistic
Text10.Text = rsbian.Fields!renming
End Select
End Sub
每次我选择下面的一个内容时候.就会在Text10.Text中显示我希望显示的数据,但是我不知道Combo1.Text的这个值如何赋值才可以区别我下拉列表中选择的数据啊.
你的意思我还是有些不明白的地方，不过我看这里好像有点问题，时不时因为这个：Case "Combo1.Text" ，如果你想这个语句好用的话，我认为应该是没有引号的，直接就是：
CASE COMBO1.TEXT 我们再讨论。呵呵