Question

VB里的combox 如何做到同样的数据 第一个选了第二个就不能再选

比如 两个combo，combo1和combo2，都包含1,2,3。如果combo1选了1的话，combo2就只能从2,3里选？
求高人解释

Answer 1

Dim oldListIndex As Integer
Private Sub Combo1_Click() '如果第一个选了与第二个相同，使第二个失效
    If Combo2.Text = Combo1.Text Then
        Combo2.ListIndex = -1
        oldListIndex = Combo2.ListIndex
    End If
End Sub
Private Sub Combo2_Click() '如果第二个选了与第一个相同，重新选择原来的选项
    If Combo2.Text = Combo1.Text Then
        Combo2.ListIndex = oldListIndex
    Else
        oldListIndex = Combo2.ListIndex
    End If
End Sub
Private Sub Form_Load()
    oldListIndex = Combo2.ListIndex '初始 oldListIndex
End Sub

Answer 2

Private Sub Combo1_Click()
     Combo2.Clear
        If Combo1.Text <> "a" Then
            Combo2.AddItem "b": Combo2.AddItem "c"
        ElseIf Combo1.Text <> "b" Then
            Combo2.AddItem "a":  Combo2.AddItem "c"
        ElseIf Combo1.Text <> "c" Then
            Combo2.AddItem "a": Combo2.AddItem "b"
        End If
End Sub
'或者
Private Sub Combo1_Click()
     Combo2.Clear
     Select Case Combo1.Text
        Case "a": Combo2.AddItem "b": Combo2.AddItem "c"
        Case "b": Combo2.AddItem "a": Combo2.AddItem "c"
        Case "c": Combo2.AddItem "a": Combo2.AddItem "b"
     End Select
End Sub
Private Sub Form_Load()
    Combo1.Clear
    Combo1.AddItem "a": Combo1.AddItem "b": Combo1.AddItem "c"
End Sub

Answer 3

Private Sub Combo1_Click()
Dim i As Integer
Combo2.Clear
For i = 0 To Combo1.ListCount - 1
    If i <> Combo1.ListIndex Then Combo2.AddItem Combo1.List(i)
Next
End Sub