通过下面代买,把combo1中与list1重复的项移除掉:Dim i As IntegerDim j As Integeri = 0Do While i <= ComboBox1.ListCount - 1 For j = 0 To List1.ListCount - 1 If ComboBox1.List(i) = List1.List(j) Then ComboBox1.RemoveItem i Exit For End If Next j If j > List1.ListCount - 1 Then i = i + 1Loop仅供参考:private sub form_load()list1.additem "张三"list1.additem "李四"end subprivate sub list1_click()select case list1.textcase "张三"combo1.additem "张父"combo1.additem "张妻"combo1.additem "张一"combo1.additem "张二"case "李四"combo1.additem "李四父"combo1.additem "李四母"combo1.additem "李四一"combo1.additem "李四二"end selectend sub