我想通过改变Combo1的选项来改变Combo2的内容。

Private Sub Combo1_LostFocus()
  Dim sql As String
  Dim rs As New ADODB.Recordset
   sql = "select Emode from NewEqu where Elogo =' " & & " '"     
    Set rs = TransactSQL(sql)
  If rs.EOF = False Then
     While Not rs.EOF
          rs(0)
         rs.MoveNext
     Wend
     rs.Close
      = 0
     End If
  End Sub




我的数据库，



当我改变Combo1 的内容时，Combo2的内容就是不变，班主，帮我看看，我那里又写错了！

[ 本帖最后由 hsbwp1314 于 2010-10-18 20:37 编辑 ]

= '不就得了？

这样可以吗？我的意思是：如果我改变了Combo1的内容，combo2的内容通过Combo1的条件查询后从新更新，再显示出来！
比如说我选了：得实，这个品牌的所有型号（DS1860，DS1700，DS5400）被查找出来，并显示在Combo2上面。

可以，不是有编号吗?
还有用 combo1_click() 事件比较好吧？

Private Sub Combo1_LostFocus()
  Dim sql As String
  Dim rs As New ADODB.Recordset
   sql = "select Emode from NewEqu where Elogo =' " & & " '"     
    Set rs = TransactSQL(sql)
  If rs.EOF = False Then
     While Not rs.EOF
          rs(0)
         rs.MoveNext
     Wend
     rs.Close
      =        ++++++++是这样吗？？
  End If
  End Sub
试了，不行

sql = "select Emode from NewEqu where Elogo like '%" & & "%'"

问题解决，是我查询语句间隔太远
sql = "select Emode from NewEqu where Elogo =' " & & " '"  
改成：
sql = "select  distinct Emode from NewEqu where Elogo='" & & "'"
但是开始查询 的结果在下次查询时还是存在：比如：开始我选：升腾  查询的结果为：L6712A
                                               当我从新选：实达时，查询结果：BP3000XE，但L6712A仍然在下拉条中。
 请问有办法不让上次查询的结果出现在下拉条中不？？？

哦，原来还有这么个好用的sql语句呀。
combo1.clear '刷新一下不就行了？