当text1参数发生变化,combo1再次下拉时无法更新

f359742154

text1参数发生变化时,combo1再次下拉时无法更新,显示的还是原来查询所得的数据
Private Sub Combo1_DropDown()
rs.CursorLocation = adUseClient
With rs
sql = "select name from temp1 where ID='" & Text1 & "'"
  rs.Open sql, cn
  If .RecordCount > 0 Then
  .MoveFirst
  Combo1.Clear  
  While Not .EOF
  Combo1.AddItem .Fields("name")
  .MoveNext
  Wend
  End If
  
  End With
  Set rs = Nothing
End Sub

应该怎么改

yoh2006

怀疑是If .RecordCount > 0 Then这个条件未成立，所以combo1的内容未更新

zfight

你的Text1,是个变量,还是控件名,
还有最好加上这句
If rs.State = 1 Then rs.Close