Question

vb中combox第一次加载4项，第二次点击加载一项，但是显示4行下拉框，选择内容后下拉框不会消失，怎么解决

Answer 1

好象你的="1 " "2 "字符串里面数字后面有个空格。我试了下面的代码是可以的。
Private Sub CboPlace_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboPlace.Leave
If CboPlace.Text = "2" Then
CboMeas.Items.Clear()
CboMeas.Items.Add("21")
ElseIf CboPlace.Text = "1" Then
CboMeas.Items.Clear()
CboMeas.Items.Add("11")
CboMeas.Items.Add("12:")
CboMeas.Items.Add("13")
CboMeas.Items.Add("14")
End If

End Sub

Answer 2

保存程序，关闭vb6，然后重新打开你的程序再试。

追问

谢谢您的回答，我试了每次都是这样的。

Answer 3

你没把代码贴出来，怎么可能知道错在哪里？

追问

Private Sub CboPlace_LostFocus()
If CboPlace.Text = "2 " Then
CboMeas.Clear
CboMeas.AddItem "21"
ElseIf CboPlace.Text = "1 " Then
CboMeas.Clear
CboMeas.AddItem "11": CboMeas.AddItem "12:": CboMeas.AddItem "13": CboMeas.AddItem "14"
End If
End Sub
谢谢！

追答

没发现有什么错啊？究竟出了什么问题？