Question

vb中 两个combobox控件 点击其中一个下拉列表中的一项 另外一个下拉列表项会变成不同的项目 该怎么做

比如 第一个 的下拉列表项有两个： 食物 和饮料 。点食物 第二个combobox的下拉列表会变成 馒头 面包 等等 点饮料 会变成 可乐 雪碧 请问该怎么做 现在只知道要在数据库中关联两个数据表 具体该怎么做啊 谢谢 有代码最好了 多给加分

Answer 1

Private Sub Combo1_Click() '分类下拉框,在这里写下代码令第二个combobox的下拉列表改变
Select Case Combo1.ListIndex
Case 0 ‘比如这个是食物
Data1.RecordSource = "Food" ‘Data1是数据库控件，已绑定数据库，food是表名
Case 1 '这个是饮料
Data1.RecordSource = "Drink"
End Select

Data1.Refresh

If Data1.Recordset.RecordCount = 0 Then
‘如果没有记录
Else
’有记录的话
DBList1.Text = Data1.Recordset("Name") ‘Name是字段名
‘DBList1是列表控件
‘你修改一下，用combobox加载列表就行
End If

End Sub

Answer 2

Private Sub Combo1_Change()
Combo2.Clear
If Combo1.Text = "食物" Then
Combo2.AddItem "馒头"
Combo2.AddItem "面包"
Combo2.ListIndex = 0
ElseIf Combo1.Text = "饮料" Then
Combo2.AddItem "可乐"
Combo2.AddItem "雪碧"
Combo2.ListIndex = 0
End If
End Sub