Question

我想要达到的效果是：选择combo1中的一个list项目，点击command1后在listbox中显示多行结果

类似于常见的EXCEL中的筛选功能一样，combo1中的项目就是筛选的关键字，通过listbox输出筛选结果，点击listbox中的某一个结果还能在label控件中显示其具体信息。
比如combo1的list项目为“日系车”、“德系车”、“美系车”，我选择“日系车”后在listbox中输出“丰田”、“本田”、“日产”，点击“丰田”后在label中显示丰田品牌的相关信息。
谁能具体告诉我要怎样操作才能实现？百度新手，分不多，但求解决问题......

Answer 1

这是个联动的问题，不难
你点击(Click,这个跟你选的combo1的类型有关)，后判断一下当前选中项的值 或者编号去修改listbox中的值就可以了啊，然后通过 点击(Click) listbox ,判断值 去改变label的值
这些数据 你可以存到数组 或者.ini文件中

追问

具体的数组或者ini文件如何操作，能否详细说明一下？

追答

这里说的 数组或ini文件 只是用来存放，你combox、listbox所需要的数据集合，这些数据你也 可以有其他来源。
如果你是问 数组 怎么在这个程序中怎么用：那就拿数组举个例
数组： a1 = {"日系","德系","国产"} a2 = {"丰田","本田","日产"} a3 = {"丰田信息","本田信息","日产信息"}
当你触发 combox 的click事件，ListIndex属性可以取到你选择的事第几个数据，下标赋值给 变量 index
if index = 0 ’也就是说 选择 a1(0) = "日系" ,你就将a2 数据全部加到 listbox 中
同理，对listbox 与 label 做这样的处理

追问

你说的方法我理解了，但是实际写代码的过程中比较有难度。
第一，像a1{“日系","德系","国产"}这样的数组怎么定义（具体的代码怎么写？）最好能让我直接复制粘贴，因为本人的VB基础比较弱。
第二，if index = 0 选择了a1="日系"之后，如何让a2的数据全部加到listbox中？（代码怎么写？）

追答

Option Explicit
Private a1() As Variant
Private a22 As Variant
Private a21 As Variant
Private b21 As Variant

Private Sub Combo1_Click()
    Dim i As Integer
    Debug.Print "click"
    Select Case Combo1.ListIndex
        Case 0  '日系
            List1.Clear
            For i = LBound(a21) To UBound(a21)
                List1.AddItem a21(i)
            Next
        Case 1  '德系
            List1.Clear
            For i = LBound(a22) To UBound(a22)
                List1.AddItem a22(i)
            Next
    End Select
End Sub

Private Sub Form_Load()
    Dim i As Integer
    a1 = Array("日系", "德系", "国产") '第一个，数组赋值
    a21 = Array("丰田", "本田", "日产")
    a22 = Array("德系1", "德系2", "德系3")
    b21 = Array("信息1", "信息2", "信息3")
    For i = LBound(a1) To UBound(a1)
        Combo1.AddItem a1(i)
    Next
    Combo1.ListIndex = 0    '设置 combo的默认值
    List1.ListIndex = 0     '设置 list的默认值
End Sub

Private Sub List1_Click()
    lblLabel1.Caption = b21(List1.ListIndex)
End Sub