Question

vb中combo1、combo2的问题。

vb中 我先选了combo1列表里面的一项，之后我选combo2列表里面的，这时候combo1上我选择后那一项就显示在那里，怎么能让我选combo2时，我在combo1上选择后留下的记录能消失。

Answer 1

Option Explicit

Private Sub Combo2_Click()
On Error Resume Next
Combo1.Text = "" '设置第一个文本内为空

'下面的代码是，从下拉列表移除
Dim i As Long
For i = 1 To Combo1.ListCount
If Combo1.Text = Combo1.List(i - 1) Then
'如果是选中的刚移除
Combo1.RemoveItem (i - 1)
Exit For
End If
Next

'上面的代码一个是设置为空，一个是移除，请你根据情况采用．
End Sub

Private Sub Form_Load()
Combo1.AddItem "测试1"
Combo1.AddItem "测试2"
Combo1.AddItem "测试3"
Combo1.AddItem "测试4"

Combo2.AddItem "测试1"
Combo2.AddItem "测试2"
Combo2.AddItem "测试3"
Combo2.AddItem "测试4"

End Sub

Answer 2

Private Sub Combo2_Click()
Combo1.Text = ""
End Sub

Private Sub Form_Load()
For i = 1 To 3
Combo1.AddItem i
Combo2.AddItem i
Next
End Sub